Orbital and Rendezvous Navigation 


o 


PR0G20 


Perform "R02B0TH" 

DBPTC = ADB 

Set bit 8(CSMUPDAT) of FLAGWRDl = 0 

Set bit 15(V50N18FL) of FLAGWRD3 = 1 (already 1 from "ISITPOO") 

Set bit 5(TRACKFIjG) of FLAGWRDl = 1 

0PTI0N2 = 0 Option 0: LM /"VECPOINT" 

1: Celes.Body/"VECPOINT" 

If bit 7(AUT0SEQ) of FLGWRDIO =0: 2: Rotation 

4: LM/ 3 axis 

TS = 00024g 5: Celes.Body/ 3 axis 

Proceed to "G0PERF4": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 

otherwise, proceed to previous line 

If (bits 2-1 of 0PTI0N2) ^ 00^: (e.g. options 1, 2, or 5) 

Proceed to "D0V6N78" 

UTPIT = K^5ciegang (constant is -35°) (Tag here "PREL0D78") 

UTYAW = 0 
AZIMANGL = 0 

If bit 7(AUT0SEQ) of FIGWRDIO = 1: 

Proceed to "P200PT" 

Proceed to "D0V6N78" 

D0V6N7B 

TS = 0678 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 
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TS = 0679 

vn 

Perform "VNFLASHR": (if terminate, proceed to "GOTOPOOH") 

if proceed, skip next 3 lines 
otherwise, proceed to previous line 

If bit 2 of 0PTI0N2 = 0: (e.g. options 0, 1, 4, or 5) 

TS = IOI 2 and perform "BLANKET" (R 3 BINK and RIBLNK) 

End of job 

If bit 3 of 0PTI0N2 = 1: (e.g. option 4 or 5) (Tag here "ENDV6N79") 

Set bit 8(AZIMFLAG) of FLGWRDll = 1 
Proceed to second line of "P200PT" 

Proceed to "P200PT" 

P200PT 

Set bit 8 (AZIMFLAG) of FLGWRDll = 0 

If (bits 2-1 of 0PTI0N2) = 00^: (e.g. option 0 or 4) 

Set bit 9(UTFLAG) of FLAGWRD 8 = 0 
Set bit 7(UPDATFLG) of FLAGWRDl = 1 
Proceed to "NDUTINPT" 

OPTNTYPE = (bits 2-1 of 0PTI0N2) - 1 (Tag here "UTKINPUT") 

Set bit 9(UTFUG) of FLAGWRD 8 = 1 
Set bit 7(RNDVZFIG) of FLAGWRDO = 0 
If OPTNTYPE > 0: (e.g. option 2) 

TS = 0634 ^ (Tag here "TYPE2IN") 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 

R 67 TIME = DSPTEMl 
Proceed to "NDUTINPT" 

Proceed to "V1N70DSP" (e.g. option I or 5 ) 
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V1N70DSP 


TS = 0170 

vn 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 

If STARCODE <0: (contrary to e.g. "R51DSPA", -0, i.e. 77777g, 

is not rejected) 

Set bit 7(0perator Error) of channel 11 = 1 
Proceed to "VIN 7 ODSP" 

If STARCODE > 50g: 

Set bit 7 (Operator Error) of channel 11 = 1 
Proceed to "VIN 7 ODSP" 

UTSTARN0= STARCODE 
If STARCODE > 0: 

Proceed to "NDUTINPT" 

If STARCODE = +0: (if -0, no display) 

TS = 06S8 

vn 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 

PLANVCUT = STARSAVl 
Proceed to "NDUTINPT" 

NDUTINPT 

Set restart group 2 to cause a start at next line (priority 26g to PHSPRDT2) 

If bit 9(UTFLAG) of FLAGWRD 8 = 1: 

Establish "STATINT1"( priority 05g) (Tag here "INTSETUP") 

Set restart group 2 to phase 5 (i.e. 2.5, causing "STATINTl" to 
be established with priority 05 g if a restart) 

Set restart group 1 to phase ll(i.e. 1.11, causing "PIKUP20" to 
be established with priority lOg if a restart) 

Proceed to "PIKUP20" 
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MARKTIME = (communication cell vdth "SETINTG") 

Perform "SETINTG" 

If bit 8(CSMUPDAT) of FLAGWRDl = 1: 

Set bit 3(CSMINTSW) of FLAGMRD3 = 0 
Perform "INTEGRV" 

Set restart group 2 to start at next line 
Perform "SETINTG" 

If bit I(RENDWFIjG) of FLAGWRD5 = 1: 

Set bit l(WMATINT) of FLAGWRD3 = 1 
If bit 8(CSMUPDAT) of FLAGWRDl = 0: 

Set bit 3(CSMINTSW) of FLAGWRD3 = 0 
Perform "INTEGRV" 

Set bit 7(RNDVZFIJG) of FLAGWRDO = 1 
Establish "R22" (priority 26g) 

Set restart group 2 to phase 7 (i.e. 2.7, causing "R22" to be 
established with priority lOg if a restart) 

Set restart group 1 to phase 11 (i.e. 1.11, causing "PIKUP20" to 
be established with priority lOg if a restart) 

Perform "AUTOCHK" (returns immediately if bit 7(AUT0SEQ) of FLGWRDIO 

is zero) 

Proceed to "PIKUP20" 

PIKUP20 (Entered from "NDUTINPT" and due to restart group l.ll) 

Cliange priority of present job to 14 g 
If bit 5(TRACKFLG) of FLAGWRDl = 0: 

Proceed to "FIXDB" 

If bit 13(REFSMFLG) of FLAGWRD3 = 0: 

Proceed to "FIXDB" 

R61CNTR = 0 
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If bit 9(UTFLAG) of FLAGWRD8 =1: 

Proceed to "CALLR6X" 

Set bit 14(R21MRK) of FLAGWRD2 = 1 
Perform "R6ICSM" 

If bit 15(PCMANFIG) of FLGWRDIO = 1: (set e.g. by "P79" and "P86") 
Proceed to third line of "AUTOCHK" 

Proceed to "P20TRACK" 

P20TRACK (Entered from "PIKUP20" and "P79A") 

Set bit lO(LMrRG) of FLAGWRDl = 1 
Perform "R52" 

Perform "MKRELEAS" 

Proceed to "FIXDB" 

PR0G21 

0PTI0N2 = 1 

Set bit 5(TRACKFIG) of FUGWRDl = 1 
TS = 00002g 

Proceed to "GOPERF4": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 

othervd.se, proceed to previous line 

DSPTEMl = 0 
Proceed to "P21PR0G1" 

P21PR0G1 

TS = 0634 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se, proceed to previous line 

TS = DSPTEMl, 

If TS = 0: 

TS = T 

novr 

Proceed to "P21PR0G2" 
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P21PR0G2 


Perform "INTSTALL" 

If bit 12(P21FLAG) of FLAGWRD2 = 0: (set 0 e.g. in "INITSUB") 

Set bit 3(CSMINTSW) of FLAGWRD3 = 1 
If |0PTI0N2|^2: 

Set bit 3(CSMINTSW) of FLAGWRD3 = 0 
Set bits 4(C0NICINT) and l(WMATINT) of FLAGWRD3 = 0 
Perform "INTEGRV" 

If bit I2(P2IFLAG) of FLAGWRD2 =1: 

RCV = P21BASER (tag here "P2IC0NT") 

VCV = P2IBASEV 

T ^ = P2iTIME 
et 

Set bit I(WMATINT) of FLAGWRDS = 0 (Note that bit 4 not set.) 
Set bit I2(M00NFLAG) of FLAGWRDO = 0 
If P210RIG 0: 

Set bit 12(M00NFLAG) of FLAGWRDO = I 
Perform "INTEGRVS" 


P21TIME - T , , 
att 

(tag here "P2iVSAVE") 

P21BASER == R 

- -attl 

(B29 earth, B27 moon) 

P21BASEV = 

(B7 earth, B5 moon) 

If bit lO(NEWTFLAG) of FLAGWRD5 = I: (i.e. from P29) 


Set bit lO(NEWTFLAG) of FLAGWRD5 = 0 
Proceed to "H0P29DSP" 

If bit I(P29FLAG) of FIAGWRDO = 1: 

Proceed to ''LONGPASS” 

TS = |P21BASEV{ (B7 earth, B5 moon) 
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Shift TS right X2 places (make B7; X2 set from integration) 
P21VEL = TS 

P21GAM = sin“^ ^ (unit^^^ * / P21VELj 

P210RIG = X2 

Set bit 12(P21FLAG) of FIAGWRD2 = 1 

Set bit 12(LUNLATLO) of FLAGWRD3 = 0 (Tag here "P21DSP") 

If X2 0: (e.g. 2, meaning moon) 

Set bit 12(LUNLATL0) of FLAGWRD3 = 1 

ALPHAV = R 

- -att 

Set bit 13(ERADC0MP) of FLAGWRDl = 0 

TS = T ^ , 
att 

Perform "LAT-LONG" 

P21ALT = K, ALT 

kpOl 

TS = 0643 

vn 

Proceed to "GOFLASH" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed to "GOTOPOOH" 
otherwise, proceed 

DSPTEMl, = P21TIME + 

dp 600sec 

Proceed to "P21PR0G1" 

PR0G22 

Perform "R02B0TH" 

If bit 9(UTFLAG) of FLAGWRD8 = 1: 

Set bit 5(TRACKFLG) of FLAGWRDl = 1 

Set bit 7(RNDVZFLG) of FLAGWRDO = 0 

T = T 
decl now 

Perform "CSMCONIC" 

pMGA = cos"^ /|unit(V^^^ ^^^) • REFSMMAT^ 
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TS = 0645 

vn 

Perform "VNFLASHR" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed to "PR0G22A" 
otherwise, proceed to previous line 

TS = OII 2 and perform "BLANKET" (R2BLNK, RIBLNK) 

End of job 

PR0G22A 

Set bits 12-10 of LANDMARK = 0 (second octal digit) 

Set bit 9(LMKTRG) of FLAGWRDl = 1 
Set bit 8(CSMUPDAT) of FLAGWRDl = 1 
Set bit 12(LUNLATL0) of FLAGWRD3 = 0 
Set bit 11(P22MKFLG) of FLAGWRD3 = 0 
Set bit 13(ERADC0MP) of FLAGWRDl = 1 

If bit 12(CM00NFLG) of FLAGWRD8 = 0: (earth-centered) 

Perform "P22SUBRB" 

Perform "R52" 

Proceed to "DOV5N71" 

Set bit 12(LUNLATL0) of FLAGWRD3 = 1 
(TS^, TS 2 ) = ( 0570 ^, 1307g) 

Perform "S22N7071" 

Perform "R52" 

Proceed to "DOV 5 N 7 I" 

DOV5N71 

(TS^, TS^) = ( 0571 ^, 0) 

Perform "S22N7071" 

Set bit 11(P22MKFLG) of FLAGWRD3 = 1 

NUM8KK = 1 

S22L0C = "SMRKDAT" 

Proceed to "S22.1" 
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P22SUBRB (Entered from "PR0G22A", "PR0G24", "P23N7071", and "S22N7071") 

TS = 0689 

vn 

Proceed to "WFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervfise, proceed to previous line 

If (i - jlAT ) ) < 0: (lAT input magnitude exceeded 90°) 

Set bit 7 (Operator error) of channel 11 = 1 

Proceed to "P22SUBRB" 

If (^ -jlANDLONGj )<0: (^ longitiide input magnitMe exceeded 90°) 

Set bit 7 (Operator error) of channel 11 = 1 
Proceed to "P22SUBRB" 

LONG = 2 LANDLONG 
ALT = LANDALT 
Return 

S22N7071 (Entered with TS^ set to verb-noun pattern) 

NUM8KK = TS^ 

NUM8KK+1 = TS^ (used as flag: non-zero for N70, zero for N 71 ) 

TS = NUM8KK ^°^ pre-mark, lunar only; 0571^ after marks) 

Perform "WFLASHR" : (if terminate, proceed to "GOTOPOOH") 

if proceed, skip next 2 lines 
otherwise, proceed to previous line 

TS = IOI 2 and perform "BLANKET" (RSBINK and RIBUJK) 

End of job 

CXOFF = (bits 12-10 of LANDMARK), shifted right 9 places (digit B) 

If (CXOFF - 5) > 0: 

Set bit 7(0perator error) of channel 11 = 1 
Proceed to 3rd line of "S22N7071" 

Set bit 8(LNDKN0WN) of FLAGWRD6 = 0 
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TS = (bits 15-13 of LANDMAM) 


(digit A) 


If TS = 0: 

Set bit 7(0perator error) of channel 11 = 1 
Proceed to line of "S22N7071" 

If TS ^ 3 : 

Set bit 7(0perator error) of channel 11 = 1 
Proceed to 3^^ line of "S22N7071" 

If TS = 1: 

Set bit 8(IWDKN0WN) of FLAGWRD6 - 1 

22SUBSCL = (bits 6-1 of LANDMARK) (digits DE) 

If 22SUBSCL -1>0: 

If NUM8KK+1 = 0: (displaying N 7 I) 

• Set bit 7 (Operator error) of channel 11 = 1 
Proceed to 3rd line of "S22N7071" 

If (bits 6-4 of 22SUBSCL) ^ 5: (digit D) 

Set bit 7(0perator error) of channel 11 = 1 
Proceed to 3rd line of "S22N7071" 

Set bit lO(ADVTRK) of FLAGWRD 8 = 1 (Tag here "DE-GR- 5 O") 

Perform "R52" starting at second line 
Proceed to "DOV 5 N 71 " 

If bit 8(LNDKN0WN) of FLAGWRD6 - 0: (Tag here "G22ADDE") 

Return 

If 22SUBSCL = 0: 

Perform "P22SUBRB" 

Return 

TS„ = T (tag here "S22LSITE") 

^ now 

TS^ = RLS 

TS = ^ (non-zero, meaning moon) 

Perform "RP-TO-R" 
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ALPHAV = TS, shifted right 2 places (B29) 
TS = T 

now 

Perform "LAT-LONG" 


Return 

S22.1 (Entered from "DOV5N7I" to process P22 mark data) 

If bit 12(CM00NFLG) of FIAGWRD8 = 0: 

S22E0RM = 0 (earth-centered) 

If bit 12(CM00NFIG) of FLAGWRD8 = 1: 

S22E0RM = -2 (moon-centered) 

Perform "SETINTG" ^'^decl over before being used) 

If bit 6(0RBWFUG) of FLAGWRD3 = 1: 

Set bit l(WMATINT) of FLAGWRD3 = 1 
If bit 6(0RBWFLAG) of FLAGWRD3 = 0: 

Set bit l(RENDWFLG) of FLAGWRD5 = 0 


W. = 0 
1 

W. = 0 
1 


(i = 0 - 17) (i.e. 

(i = 27 - 44) (i.e. 


[Wq] and ) 

[W3] and 


) 


W. = WORBPOS 
1 


W. = WORBVEL 
1 


(i = 0, 4j B, diagonal elements of 
(i = 36, 40, 44, diagonal elements of 


N' 


w. = 0 

1 


(i 


I.e , 


w^) 




) 


W. = 0 
1 


(i = 18 - 26) 

(i = 45 - 80) (i.e. through ) 

Set bit 9(DMENFIG) of FLAGWRD5 = 0 (means 6x6) 

Proceed to "S22NXTIN" 

S22NXTIN 


(Tag here "SETVANDI") 


^decl ®S22L0C 


'dp 


(i.e. time of mark) 
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Perform "INTEGRV" 


CSMPOS = RCV + ( DELTA V shifted right 7 - S22E0RM places) 

^ili> ^111 

XI = - S22L0C 

Perform "GETUM" 

UM = TS 

If NUM8KK = CXOFF: (mark is offset one) 

S22T0FF = E 222 LQP (i-e. tijne of mark) (Tag here "S220FF=I") 

dp 

S22U0FF = UM 
Proceed to "3221^" 

If bit 9(DMENFLG) of FLAGWRD5 = 1: (i.e. first non-offset mark 

processed) 

TS^ = X782 (Tag here is "S22D=9") 

TS^ = S22TPRIM (time of last mark, i.e. time tag of X782) 

TS = S22E0RM (O for earth, non-zero for moon) 

Perform "R-TO-RP" 


TS^ = TS 
'’^^2 ^ ®S22L0C 

dp 

TS = S22E0RM 


(time of present mark) 


Perform "RP-TO-R" 


X7&2 = TS 

Proceed to "S22B0X32" 

Set bit 6(0RBWFUG) of FUGWRD3 - 1 
Set bit 9(DMENFLG) of FLAGWRD5 = 1 
Set bit 13(22DSPFLG) of FLAGWRD2 = 1 
If bit 8(LNDKN0WN) of FLAGWRD6 = 1: 


“i = '=s22wsubl [“s]) 

TS = Eg22L0C 


Perform "LALOTORV" 


(Tag here "S22B0X22") 
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(If bit 8(LNDKN0WN) of FIAGWRD 6 = l) : 

TS = ALPHAV 

If bit 12(CM00NFLG) of FLAGWRD 8 = I: 

Shift TS left 2 places (to B27) 

X782 = TS 

Proceed to "S22B0X32" 

ALPHAV = \anitCSMPOS 
Perform "SETRE" 

TS = - unitCSMPOS • UM 
TS^ = ERADM 

If bit 12(CM00NFLG) of FLAGWRD 8 = 1 : 

Shift TS^ left 2 places (to scale factor B27) 

S22RH0 = IcSMPOSj^ TS - \/(TS^/|CSMP0S()2 - (l - TS^)' j 

X782 = CSMPOS + S22RH0 UM 
TS = X782 

If bit 12(CM00NFLG) of FLAGWRD 8 = 1 : 

Shift TS right 2 places (to B 29 ) 

S22RL = TS 
S22D = S22RL • UM 


PDMXI. = 
1 

0 

(i = 0 - 8 ) 

PDMXI. = 
1 

1 

(i = 2 , U, 6 ) 

S22UMRI^ 

= UM 

X 

S22RL 

S22UMRL„ 

= UM 

S22RL 

-3 

y 


S22UMRL^ 

= UM 

z 

S22RL 


S22UMRI^ - PDMXI^ - (S22UMRLq) / S22D (Tag here is "S22NXTU") 
S22UMRL^ = PDMXI^ - (S 22 UMRL 2 ) / S22D 
S22UMRL^ = PDMX^ - (S22UMRI^) / S22D 
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[S22UMrQ 

w = 
-54+3i 


S22UMRI^' 
= S22UMRL^ 
S22UMRL^ 
^22UMRL^ 


(i = 0 - 5j loading 
from modified I'Wq'I 


K] 

and TwJ ) 


TS = S22RH0 

If bit 12(CM00NFLG) of FIAGWRD8 = 1: 
Shift TS right 2 places (to E30) 


S22RH0 = i K ^ TS^ 

S22UUTq = S22RH0 [S22UML) S22UMRI^ 
S22UUT^ = S22RH0 [s22UMr£] S 22 UMRL 2 
S22UUT^ = S22RH0 (S22UMRl] S22UMRI^ 
S22U]yiRI^ = UM UM 

-0 X — 

S22UMRL^ = IM UM 
-3 7 - 

S22UMRL, = UM UM 
-6 z - 

S22RH0 = C (ERADM / S22D)^ 

rpvar ' ' 


S22UUTq 

= S22UUTq 

+ 

S22RH0 

S22UMRLq 

(Tag here "S22NXXB") 

S22UUT^ 

= S22UUT^ 

+ 

S22RH0 

S22UMRL^ 


S22UUT^ 

= S22UUT^ 

+ 

S22RH0 

S22UMRL^ 



Reset overflow indicator 


TS = S22UUTg 
If TS ^0: 

TS = vTT^ 

If TS ^ 0: 

= TS (rescaled to BI 9 ) 

TS^ - S22UUT^ / 

If overflow has not taken place since indicator reset: 

= TS^ (rescaled to BI 9 ) 

Reset overflow indicator 
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(If TS ^ 0): 







TSg = S22UUT^ / 

If overflow has not taken place since indicator reset: 


Wy 2 = TS 2 (rescaled to BI 9 ) 

Reset overflow indicator 

TS = S22UUT^ - (Tag here is "S22W76X") 

If TS y/ 0: 

TS =\/H 
If TS ^ 0: 

= TS (rescaled to BI 9 ) 

TS^ = (S22UUT^ - W ^2 ^^ 3 ) / 

If overflow has not taken place since indicator reset: 

Wr,r- - TSt (rescaled to BI 9 ) 

75 1 

TS = S22UUTq - (W^^^ + W^ 2 ^) (Tag here "S22W78X") 

If TS:^0: 

= n/tS* (rescaled to BI 9 ) 

S22TPRIM = Eg22L0C (i-e. time of mark) 

dp 

Proceed to "S22I=^J" 

S22B0X32 

Set bit ll(FSTINCRP) of FLAGWRD5 = 1 
Reset overflow indicator 
RCIP = X782 - CSMPOS 


TS = unitRCIP UM 
TS^ = unitTS 

If overflow has taken place (e.g. all components of TS ^2~^^ rad) 
since overflow indicator reset: 


S22TPRIM = E, 


'S22L0C 


dp 


Proceed to "S22I=N' 
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USTAR = TS^ 

Proceed to "S22B0X12" 

S22B0X12 

TS = (K ^ + K. ) (IrCLPJ)^ 

sctvar imuvarr ' — r 

Shift TS right by 2 (- S22E0RM) places (to B40) 

VARIANCE = TS 
Perform "BVECTORS" 

BVECTOR^ = - BVECTO^ 

Perform "DJCORPl" 

If bit 13(22DSPFLG) of FLAGWRD2 = 1: 

Set bit 13(22DSPFLG) of FUGWRD2 = 0 

N49DISP = jDELTA^j, shifted right -S22E0RM places (B29) 
N49DISP+2 = jDELTAX^|, shifted right -S22E0RM places (B?) 
TS = 0649 

vn 

Perform "GOFLASHR" : if terminate, proceed to "GOTOPOOH" 

if proceed, skip next 2 lines 
otherwise, proceed to "PR0G22A" 

TS = 10^2 perform "BLANKET" (R3BLNK) 

End of job 

Perform "INC0RP2" (Tag here is "S22B0X42") 

CSMPOS = RCV + (DELTAV shifted right 7 - S22E0RM places) 
— —cm —cm 

If bit ll(FSTINCRP) of FLAGWRD5 = 1: 

Set bit ll(FSTINCRP) of FLAGWRD5 = 0 

RCLP = X782 - CSMPOS 

Proceed to "S22B0X12" 

S22TPRIM = E 022 LOC 

^^dp 

Proceed to "S22I=N" 
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S22I=jJ 



If (NUM8NN - NUMSCK) > 0: 
NUM8KK = NUM8KK + 1 
S22L0C = S22L0C + 7 


Perform "SETINTG" ^'^decl over before being used) 

If bit 9(DMENFLG) of FLAGWRD5 = 1: (i.e. first mark not an 

offset one) 

Set bit l(WMATINT) of FUGWRD3 = 1 
Set bit 2(9DIMWMAT) of FUGWRD3 = 1 
Proceed to "S22NXTIN" 

If bit 6(0RBWFLAG) of FLAGWRD3 = 1: (Tag here "S22D6Z") 

Set bit l(WMATINT) of FIAGWRD3 = 1 
Proceed to "S22NXTIN'' 


If CXOFF = 0: (all marks processed if get here, tag "S22F244X") 


If 


S22T0FF = E, 


S22L0C , 
dp 

CXOFF ^ 0: 

If NUM8NN - CXOFF <0: 


S22T0FF = E, 


S22L0C, 
dp 

If NUM8NN - CXOFF 0: 

T , , = S22T0FF 

decl 

Perform "CSMPREC" 

CSMPOS = R , 

- -attl 

UM = S22U0FF 
TS = |X782( 

If bit 12(CM00NFLG) 
Shift TS right 
ERADM = TS 


(i.e. time 


of last mark) 


(B29 earth, B27 moon) 


of FIAGWRD8 = 1: 
2 places (B29) 
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(If NUM8NN - CXOFF ^O): 

TS = - unitCSMPOS • UM 
TS^ = ERADM 

If bit I2(CM00NFLG) of FLAGWRD8 = 1: 

Shift TS, left 2 places (to scale factor B27) 



S22RH0 = |CSMP0S| ( TS - y/(TS^ /ICSMPOS | )^ - (l - TS^) 

X78^ = CSMPOS + S22RH0 UM 
TS = X782 (Tag here "S22BX44A" ) 

If bit 12(CM00NFIG) of FIAGWRD8 = 1: 

Shift TS right 2 places (B29) 

ALPHAV = TS 
TS = S22T0FF 
Perform "LAT-LONG" 

LANDLONG = ^ LONG 
LANDALT = ALT 
TS = 0689 

vn 

Proceed to "GOFLASH" : if terminate, proceed to "S22GTP" 

if proceed, proceed to "S22.981X" 
otherwise, proceed 

TS2 = S22T0FF 
TS^ = X782 

TS = 5 (i.e. non-zero, meaning moon) 

Perform "R-TO-RP" 

RLS = TS 

Proceed to "S22.981X" 

S22.981X 

Perform "9DWTO6DW" 

Proceed to "PR0G22A" 
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S22GTP 


Perform "9DWT06DW" 

Proceed to "GOTOPOOH" 

("R61CSM" and "R 63 " now in ATTM 
PR(Xj 24 section) 

PASSCNT = C 

nopass 
Perform "R02B0TH" 

If bit 9(UTFLAG) of FLAGWRD8 = 1: 

Set bit 5(TRACKFLG) of FLAGWRDl = 1 

Set bit 3(P24MKFIG) of FLAGWRD2 = 0 

Set bit 14(NEWLMFLG) of FLAGWRD8 = 0 

Set bit 6(ORBWFLAG) of FLAGWRD3 = 0 

Set bit l(RMDWFLG) of FLAGWRD5 = 0 

Set bit 14(P24FLAG) of FLAGWRD9 = 1 

SVMRKDAT+i =0 (i = 0 - 35) (Tag here "ZERODNIK") 

Set bit 11(P22MKFLG) of FLAGWRD3 = 0 
Set bit 7(RNDVZFLG) of FLAGWRDO = 0 

MARKTIME = T (communication cell with "SETINTG") 

riow 

Perform "SETINTG" 

Perform "INTEGRV" 

Set bit 13(ERADC0MP) of FLAGWRDl = 1 
Set bit 12(LUNLATL0) of FLAGWHD3 = 0 
If bit 12(CM00NFIG) of FLAGWRD8 = 1: 

Set bit 12(LUNLATL0) of FLAGWRD3 = 1 
Perform "P22SUBRB" 

Set bit 9(tMKTRG) of FlAGWRDI = 1 
Perfom "R52" 

Proceed to "GOTOPOOH" 
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P29 


Set bit 1(P29FIAG) of FIAGWRDO = 1 
Proceed to "PR0G21" 


("P21PR0G2" exits to "LONGPASS" since P29FLAG 
is set) 


LONGPASS 

TS = 0643 


vn 


Perform "VNFLASHR": (if terminate, proceed to "GOTOPOOH") 

if proceed, skip next 2 lines 
otherwise, proceed to previous line 


TS = 101^ and perform "BLANKET" 


(R3BLNK, RIBLNK) 

End of job 

LONGFOR = LONG (LONG contents destroyed) 

Proceed to "H0P29DSP" 

H0P29DSP 


TS^ 


unitZ 


TS 2 = P21TIME (tag also P29BASET) 

PASSTIME = TS 2 

Set bit 1(P29FLAG) of FLAGWRDO = 1 
DELTLONG = 0 
TS = 0 

Set bit 12(LUNLATL0) of FLAGWRD3 = 0 
If bit 12(CM00NFLG) of FLAGWRD8 = 1: 

Set bit 12(LUNLATL0) of FLAGWRD3 = 1 

TS = (i.e. non-zero, meaning moon) 

(leaves TS with Z polar vector) 

MUSUBE = unit(TS P21BASER) (P21BASER tag also P29BASJ1.) 

MQSUBC - \init(TS * MUSUBE) 


fmoon 
Perform "RP-TO-R" 
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TS^ = unit(P21BASER P21BASEV) (P21BASEV tag also P29BASEV) 

MUSUBS = unit(TS^ P21BASM) 

MUSUBN = TS^ sgn(TS^ * TS) (TS from "RP-TO-R") 

TS = P21BASEE 
Proceed to "HOPALONG" 

HOPALONG 

If bit 12(CM00NFLG) of FLAGWRD8 = 1: 

Shift TS right 2 places (to B29) 

ALPHAV = TS 
TS = PASSTIME 

Set bit 13(ERADCOMP) of FLAGWRDl = 0 
Perform "LAT-LONG" 

LNGERR = (LONGFOR - LONG), modiilo 1 revolution 

tSt = IlngerrI - K 

1 I ' epsilong 

If TS^<0: 

Proceed to "PASSOUT" 
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(If bit 1(P29FIAG) of FLAGWRDO = l): 


If bit I2(CM00NFLG) of FLAGWRD8 = 1: 

—PA 

LNGERR = LNGERR - (l - 2 ) 



If bit 12(CM00NFLG) of FLAGWRD8 = 0: 

FUDGE = K^garth "HOPl") 

Reset overflow indicator (Tag here "THETCOMP") 


FUDGE 


TS = FUDGE LNGERR + DELTLONG 


If overflow has taken place: (i.e. jisj;^ 1 rev) 

TS = P21TIME + (Tag here "ADDTEN") 


600sec 


Set bit lO(NEWTFLAG) of FIAGWRDS = 1 

Proceed to "P21PRCXJ2" (exits to "H0P29DSP") 

DELTLONG = TS 

MUSUBD = unit ^ (MUSUBE cos DELTLONG + MUSUBC sin DELTLONG) MUSUBN 
ORBDLT =^cos“^ (unitP21BASE^ • MUSUBD)^ sgn (MUSUBD • MJSUBS) 

SNTH = sin ORBDLT 
XI = -2 

CSTH = cos ORBDLT 
RVEC = P21BASER 
WEC = P21BASEV 

If bit 12(CM00NFLG) of FUGWRD8 = 1: 


XI = -10 


Set bit 9(RVSW) of FLAGWRD? =0 (new R, V desired) 


Perform "TIMETHET" 


PASSTIME = T + P21TIME 
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TS = TS 


(value from "TIMETHET") 


Proceed to "HOPALONG" 

PASSOUT 

DSPTEMl = PASSTIME 
TS = 0634 

vn 

Proceed to "GOFLASH" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
otherwise, proceed to "LONGPASS" 


TS = 0643 

vn 

Proceed to "GOFLASH": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
otherwise, proceed to "P 29 " 


Proceed to "GOTOPOOH" 
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Quantities in Computations 

See also list of major variables and list of routines 


22SUBSCL; Single precision cell, scale factor B14, loaded vd.th bits 6-1 of 
LANDMARK in "S22N7071" . A value of 00 means that an N89 input is to 
be specified, while a value of 01 means that the RLS site is selected. 
Prior to taking marks (i.e. the N70 display as contrasted with the 
N71 display), values of 50^ - 57g are used to select the advanced 
ground track mode for use in R52°(where the least significant digit 
of LANDMARK is employed to determine the number of orbits desired). 

ADB: See Digital Autopilot Interface Routines. 

ALPHAV: See Coordinate Transformations . 

ALT: See Coordinate Transformations. 

AZIMANGL: Value of "rotation angle" used in options 4 and 5 (3-axis) of 

P20, scale factor BO, units revolutions. It is loaded via R3 of N78, 
and is also modified in "STARTAUT" when a minimum key rendezvous 
sequence is started. Cell has no effect unless bit 8(AZIMFLAG) of 
FLG-WRDll = 1; a "heads up" value is 0° and a "heads down" 180°. 

BVECTOR^: See Measurement Incorporation. 

C : See Optics Computations, 

nopass 

C : Erasable memory (double precision) constant, program notation 
rpvar scale factor B28, units meters'^, giving the "variance of 

the primary body radius vector." 

C __ , , : Single precision erasable memory constant, program notation 

s22wsubl IIS22WSUBL", scale factor B19, units meters, giving the initial 
conditions for diagonal elements of for known landmark. 

CSMPOS: See Measurement Incorporation. 

CSTH: See Conic Routines. 

CXOFF: Single precision cell, scale factor BI4, giving the value for 

bits 12-10 of LANDMARK (shifted right 9 places), which is the offset 
designator. 

DBPTC: Single precision value of deadband used for P20 maneuvers, scale factor 
B-1, units revolutions. It is loaded into ADB in "R6ICSM" and "R67START" 
(imless a value of zero is indicated, in which case the 0.5 deadband 
is used) . It is initialized to the current ADB at the start of "PR0G20" 

and can be loaded via R2 of N79. 

DELTAV : See Orbital Integration. 

~cm ° 
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DELTA^: See Measurement Incorporation. 

DELTLONG: Change in longitude computed in P29 from the time that "HOPALONG" 
was initiated, scale factor BO, units revolutions. It is the change 
from the vector reflected in e.g. P21BASER. 

EEIADM: See Coordinate Transformations. 

FUDGE: Factor used to convert LNGERR information to DELTLONG, scale factor 
Bl. It approximates the ratio of the number of revolutions of the 
spacecraft with respect to inertial space to the nvunber with respect to 
a fixed longitiide in equal time periods. 

K„-d : Constant, program notation "35DBGANG", scale factor BO, units 
g g revolutions. Value is -0.097222222222, corresponding to -35°. 

Used in "PR0G20" to initialize UTPIT for rendezvous options. 

K^OOsec" program notation "600SEC'' scale factor B28, units 

centi-seconds. Value is 60000 x 2"^°, corresponding to 600 seconds 
or 10 minutes. 

K . : Constant, program notation "EPSILONG", scale factor BO, units 

epsi ong j^QYolutions . Value is 0.2777778E-4, corresponding to 0.01° (the 
P29 convergence criterion) . 

: Constant, program notation "FEARTH", scale factor Bl, used to load 
FUDGE in P29 for earth orbit. Value is 1.06666667 x 2“^, where 
first term is nominal value (i.e. I6/15) and second is scale factor. 
Corresponds roughly to proper FUDGE value for an earth-orbiting 
spacecraft with a period of 90 minutes (I6 revs per 24 hours). 

: Constant, program notation "FMOON", scale factor Bl, used to load 
FUDGE in P29 for lunar orbit. Value is 0.996958637 x 2 ~^, where 
first term is nominal value (i.e. 327.8/328.8) and second is scale 
factor. Corresponds roughly to proper FUDGE value for a Imar- 
orbiting spacecraft with a period of 2 hours . 

'^imuvarr' *^°’^stant, program notation "IMUVARR" , scale factor B-18, units 
radians'^. Value is 0.04E-6 x 2^®, corresponding to O.O4 mr^ 

(the same decimal value, but different scaling, as K. in 

Measiirement Incorporation) . imuvar 

Kr 01* Constant, program notation "K.Ol", scale factor BO, value 0.01. 

^ Used to convert output from "LAT-LONG" from units of meters to units 
of meters/100, so that the DSKY display scale, usually XXXX.X nmi, 
will be XXXXXb. nmi instead for P21ALT. 

Ksctvar* ®°^stant, program notation "SCTVAR", scale factor B-18, units 
radians . Value is l.OE-6 x 2“^®, corresponding to 1.0 mr^. 
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K, . : Constant, program notation "TWICEEPS", scale factor BO, \mits 

twiceeps revolutions. Value is 0. 5555556E-4, corresponding to 0.02°, or 

twice the value of K . ^ 

epsilong 

LANDALT; Cell used by N89 to display altitude information, scale factor 
B29, units meters. The scaling from normal XXXX.X to XXX .XX nmi is 
handled for N89 by the noun table information. 

LANDUDNC: Cell used by N89 to display longitude information, scale factor 
BO, units of two revolutions (hence if treated as if in units of 
revolutions , display would be of 2 the true angle ) . 

LANDMARK: Single precision cell which is displayed in R2 by N70 and N7I. 

Considering the five octal digits displayed to be ABCDE, the following 
code is assigned: 

A: Used in P22 to indicate known landmark if 1, unknown if 2 (other 
values not allowed) . 

B: Used in P22 to load CXOFF (offset mark serial number). Digit set 
0 at start of "PR0G22A", and can be set to the serial nimiber of 
the mark just made by V52E. If loaded manually, values in excess 
of five are rejected, and in excess of NUM8NN cause no processing 
in "3221=^". 

C: Used in P23 to indicate earth of 1, lunar if 2 (other values not 
allowed). If LANDMARK = 0, P23 requires a horizon measvirement . 

DE: Landmark identification. Value ignored by P23 (except for impact 
on zero/non-zero nature of LANDMARK cell). 

In P22, used to indicate that an N89 input is required if 00, and 
that RLS should be used if 01. For the N71 display, these are the 
only two values allowed. For the N7I display, values in the range 
50g - 57g are also allowed, specifying 0-7 advanced orbits for R52. 

LAT: See Coordinate Transformations. 

LNGERR: Value of longitude error in P29, scale factor BO, units revolutions. 
Stored in push-down list location OD. 

LONG: See Coordinate Transformations. 

LONGFOR: Value of desired longitude (entered into R2 of N43) in P29, scale 
factor BO, units revolutions. 

MARKTIME: See Measurement Incorporation. 

MUSUBC: Unit vector, scale factor Bl, perpendiciflar to polar vector and 
MUSUBE, used in P29. 

MUSUBD: Unit vector, scale factor Bl, used in P29 iteration to compute ORBDLT. 
Stored in push-down list locations OD and 6D. 
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MUSUBE: Unit vector, scale factor Bl, in easterly direction, used in P29. 


MQSUBN: Unit vector, scale factor Bl, in plane defined by angular momentum 
(and same hemisphere as north polar axis), used in P29. 

MUSUBS: Unit vector, scale factor Bl, in direction of tangential velocity for 
P29 computations. 

N49DISP, N49DISP+2: See Measurement Incorporation. 

NUMfiKK; Single precision cell, program notation "8KK", scale factor BI4, 
containing the serial number of the mark being processed in P22. It 
is initialized to 1 in "DOV5N71", and incremented in "S22I=^I" . Cell 
also used for temporary storage in "S22N7071" of verb/noun pattern. 

The follovjing cell is used in the same routine as a control flag (zero 
means N7I, and non-zero, i.e. 1307rt = 711, means N7O: the octal is 

0571 ). 

vn 

NUM8M: Single precision cell, program notation "8NN", scale factor BI4. 

Initialized to zero in "SXTMARK" for P22 and P24, and incremented for 
marks (decremented P22 mark rejects) in the optics processing logic. 

Mark processing in "S22I=N" is halted when NUM8NN equals NUM8KK. 


0PTI0N2: See Display Interface Routines. 

OPTNTYPE: Single precision cell, scale factor BI4, used to retain information 
on the P20 option selected: it is set equal to (bits 2-1 of 0PTI0N2) - 1, 
hence zero for selection of option l/5(celestial body) and 1 for selection 
of option #2 (rotation). Not loaded for option 0/4 (rendezvous). 


ORBDLT: Required angle change (converted via "TIMETHET" to a time and a new 
position vector) in the P29 loop, scale factor BO, units revolutions . 
Stored in push-down list location OD. 


P21ALT: Value of ALT computed in "P21PR0G2" for (optional) display 

in R1 of N73, scale factor B29, units (meters/lOO) : see 


P21BASEK: Value of P21/P29 "base" vector for position (notation also 

P29BASER), scale factor B29 (earth) or B27 (moon), units meters. The 
earth/moon scaling determined for P21 by P210RIG (P29 computations not 
intended for use except in orbit, hence use GSM state vector flag 
instead) . In P21, loaded after completion of integration to specified 
input time, and used to initialize the integration if bit 12(P21FLAG) 
of FLAG'WRD2 = 1, thus permitting computation time to be saved if it is 
desired to iterate about a point which is a number of orbital integration 
time steps removed from the "permanent" CSM/EM state vector. 


P21BASEV: Value of P2l/P29 "base" vector for velocity (notation also 

P29BASEV), scale factor B7 (earth) or B5(moon), units meters/centi- 
second. See P21BASER. 
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P21GAM: Value of flight path angle computed in "P21PR(DG2" for (optional) 
display in R3 of N73 in P21, scale factor BO, units revolutions. 

P210RIG: Single precision value for "origin" information for P21 base vector 
(not used by P29), scale factor BI 4 . A value of 0 means earth, and 
a value of 2 means moon. 

P21TIME: Cell used to retain time information (notation also P29BASET), 
scale factor B28, units centi-seconds . Used to contain the time tag 
of P21BASER and P21BASEV, and to permit the incrementing of the time 
associated with the N34 display. 

P21VEL: Value of velocity computed in "P21PR0G2" for (optional) display 
in R2 of N73 in P21, scale factor B7, units meters/centi-second. 

PASSCNT: See Optics Computations. 

PASSTIME: Time associated with current iteration in P29 loop, scale factor 
B28, units centi-seconds. When convergence criterion is satisfied, 
information in this cell is loaded in DSPTEMl for N34 display. 

[PDMxU : Identity matrix stored in push-down list, scale factor of elements 
B3 . With respect to the conventional sequence, for convenience in 
using the push-down list, PDMX^ has unitX; PDMXI^ has unitY, and 
PDMK^ has unitZ. Stored in push-down list location OD. 

PLANVCUT: Value of STARSAV2. (N88) information sampled in "VIN 7 ODSP" for 

use in options 1 or 5 of P20 (display generated if N70 = +0) . Can be 
with arbitrary (but consistent) scaling. 

pMlA: See Display Computations. 

R 6 ICNTR: Single precision cell, scale factor BI 4 , used for control of 
"R 6 ICSM", and as a flag (if negative) that this routine has called 
R60 (reqviiring DSKY priority displays for the performance of the 
maneuver) . Positive values cause the cell to be decremented and 
performance of the remainder of the routine to be bypassed; the setting 
to 3 causes the routine to be performed every fourth time it is 
entered, assuming that R 6 ICNTR is not set 0 by the calling routine. 

R 67 TIME: Value of the time at which maneuver is to be started for option 
2 of P20, loaded in "P200PT" from N34 information, scale factor B28, 
units centi-seconds. Used in "CALLR 6 X" to determine when "R 67 " 
should be called, for OPTNTYPE > 0 (i.e. option 2). 

RCLP: See Measurement Incorporation. 

RCV, RCV : See Orbital Integration. 

~ ~cm ° 

RI5: See Coordinate Transformations. 

RVEC: See Conic Routines. 
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S22D: Value of S22RL * UM, scale factor B29, units meters, stored in 
push-down list location 30D. 

S22E0RM: Single precision cell, scale factor BI4, used as a shift and 
control cell in P22 (loaded at start of "S22.1" with 0 for earth- 
centered computations and -2 for moon-centered computations ) . 

S22L0C: Single precision cell used to retain information on the address of 
the mark data for processing in P22. It is initialized to the address 
of SVMRKDAT in "DOV5N7I", and incremented by 7 in "S22I=N" . 

S22RH0: Cell used for temporary storage purposes in P22 (and P24 lAiien 
confuting a revised landmark location), corresponding to push-down 
list location 32D. When used to multiply UM, scale factor is B30 
(earth) or B28 (moon). When used to compute initial values for 
p22UU'^, scale factor is partiaU-y contained in X2 (if X2 = 0, scale 
factor B42)j for second term of [S22UU'5 , scale factor B34. 

S22RL: Value of landmark vector in P22 rescaled to scale factor B29, 
units meters (same scaling for earth and moon). 

S22T0FF: Value of time tag (i.e. time of measurement) for the offset 
optics mark in P22, scale factor B2B, units centi-seconds, loaded 
in "S22NXTIN" if NUM8KK = CXOFF. In P24, or if no offset mark was 
specified in P22, used to contain time tag of mark for use in converting 
X78^ to latitude/longitude/altitijde information for possible display 
and, for P22, RLS loading. 

S22TPRIM: Value of time of last mark processed in P22, scale factor B28, 
units centi-seconds, for use in "S22NXTIN" to update the value of 
X 7 B 2 to the time of the next mark. 

j^S22UMRy : Value of matrix quantities used in P22 for initialization of 
fw^ andjW.n, initially with scale factor B30 and then, after 
computation involving division by S22D, with scale factor B3. Also 
used for computation of information for fw^n , where has scale 
factor B2. L “J 


S22U0FF: Value of UM (measurement vector) for the offset optics mark in 
P22, scale factor B1 (see S22T0FF). 


pS22Uy'D_^: Value of matrix quantities used in P22 for initialization of 

with i = 0, 3, 4, 6, 7, and 8, 




jw^ , scale factor B36. 
corresponds to what may appear elsewhere as e . (j = 0 - 5 respectively). 


S22UUTj^, 


SNTH: See Conic Routines. 


STARCODE: See Inflight Alignment. 
STARSAV2.: See Inflight Alignment. 
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SVlffiKDAT: Set of buffer cells used to telemeter mark information in P22 
and P24. Up to 5 sets of mark data may be handled, each of which 
has the double precision value of mark time, followed by CDU , 
optics shaft, CDU , optics trunnion, and CDU^. In P24, cells 
initialized to zero before optics marks initiated. In both P22 and 
P24, time tags are complemented to indicate a mark rejection. P24 
loads the cells cyclically as marks are obtained (P22 has a limit of 
5 marks, filling the buffer). The initialization is to a binary zero, 
meaning a "scaled value" for trunnion information of -19.7754°j as 
might be seen on some displays . 

T: See Conic Routines. 

See Orbital Integration. 

UM: See Measurement Incorporation. 

UTPIT: Valiie of "pitch angle" used in P20, scale factor BO, units revolutions. 
It is loaded via R2 of N78, with a value of -35° the normal rendezvous 
initialization (preferred tracking axis) value. 

UTYAW: Value of "yaw angle" used in P20, scale factor BO, units revolutions. 

It is loaded via R1 of N78, with a value of zero the normal rendezvous 
initialization: zeros for UTPIT and UTYAW correspond to +X axis tracking. 

USTAR: See Measurement Incorporation. 

UTSTARNO: Value of STARCODE information sampled in "VIN7ODSP" for use 
in options 1 or 5 of P20. Scale factor BI4. 

VARIANCE: See Measurement Incorporation. 

VCV: See Orbital Integration. 

WEC : See Conic Routines . 

, W^, See Measurement Incorporation. 

WORBPOS, WORBVEL: See Measurement Incorporation. 

X782: See Measurement Incorporation . 
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Prelaunch Alignment 


GTSCPSS Entered via V37 E 01 E 

If bit 12(N0D0P0l) of FIAGWRDl = 1: 

Proceed to "POODOO" (pattern 21521g) 

Change priority of present job to 20g (was established at 13g) 
GEOCOMPl = 1 (Logic checking this cell not shown) 


IdPIPADT = K 


LENGTHOT = K, 


ISECXTl = K, 


Idppgt 

bt8 


ld2scx 
PREMTRXC = 1 

PERFDLAY^p = 1 (centi-second) 

NEWAZMTH = LAUNCHAZ 
OLDAZMTH = LAUNCHAZ 
Perform "P0SN17C" 

Perform "IMUZERO" (Tag here is "GEOIMUTT") 

Perform "IMQSTALL": if error return, proceed to "S0MERR2' 

otherwise, proceed 

NDXCTR = 0 

= ( 1 , 0 , 0 ) 

^azmth' *^azmth^ 

*^azmth' ^azmth) 


Perform "CALCGA" 


(comes here if MODREG ^ 3, since should 
still be 1 at this point) 


Perform "nMJCOARS" 

If bit 14(GL0KFAIL) of FLAGWRD3 = 1: 

NDXCTR = NDXCTR + 1 
Set bit 14(GL0KFAIL) of FLAGWRD3 = 0 

Perform "IMDSTALL" : if error retum, proceed to "S0MERR2' 

otherwise , proceed 

If NDXCTR > 0: 

Proceed to "PIPACHK" (a check of PIPA's) 
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Perform "IMJFINE" 


Perform "IMUSTALL": if error return, proceed to "S0MERR2" 

othervd.se , proceed 

Call "GOESTIMS" in PERFDLAY^p centi-seconds (set to 1 above) 
Put present job to sleep (starting address id = "ESTIMS") 
GOESTIMS 

Awaken job vdth starting address id = "ESTIMS" 

End of task 
S0MERR2 

Perform "ALARM" (pattern l601g) 

Set bit 8(IMUSE) of FLAGWRDO = 0 (tag here is "ENDTESTl") 
TS = -0 and perform "NEWMODEX" (blanks program register) 
Perform "MKRELEAS" 

Proceed to "EMDEXT" 

P0SN17C 

-sm "" ™^AZMTH, sin NEWAZMTH) 

-sm NEWAZMTH, cos NEWAZMTH) 

Return 

ESTIMS Entered from awakened job via "GOESTIMS", or from end of 

"ALFLT" for azimuth change 

Inhibit interrupts 
GTSWTLTl = TIMEl 
PIPA = 0 

Release interrupts 

INTVECl = 0 
7 

INTVECl = 0 
z 

FILDELVl = 0 

y 
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FILDELVl = 0 


z 

THETAN = 0 
GCOMPSW = 0 
GCOMP = 0 

DELV = 0 

ERVECTOR = K (sin C 

— omegms 

T = T 
mark now 

ERCOW = 0 
ERECTIME = LENGTHOT 


atd^ 


cos 


*^atd’ 


0 ) 


TS = 02 and perform "NEWMODEX" 
Perform "PIPUSE" 


LENGTHOT = 9 
Proceed to "SLEEPIE" 


SLEEPIE 

Perform "CHKCOMED" 


Perform "SETGWLST" 

End of job 
CHKCOMED 

Inhibit interrupts 
If MODREG = 7: 

Return 

If bit 5 (Liftoff complement) of channel 30 = 1: 

If bit 5(BKUPL0) of FIAGWRD5 = 0: (set 1 by "LFTFLGON" 

for a V75E) 

Release interrupts 
Return 

Set priority of present job to 22^ (was established at that anyhow) 
Proceed to "Pll" 
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SETGWLST 


Inhibit interrupts 
TS = GTSWTLTl - TIMEl 
If TS > 0: 

TS = TS - 163.83 seconds (should be I 63 . 84 ) 

TS = TS + ISECXTl 
If TS.^ 0: 

TS = 0.04 seconds 
Call "ALLOOP" in TS seconds 

Retiirn (interrupts released e.g. by End of job) 

ALLOOP 

GTSWTLTl = TIMEl 

Set restart group 5 to cause restart at next line 

Set DELV = PIPA and PIPA = +0 (no special restart provisions) 
sp 

Set restart group 5 to cause restart at next line 
Establish "ALFLT" (priority 22^) 

End of task 

ALFLT 

Perform "CHKCOMED" 

Perform "l/PIPA" 

TS = DELV fx 1 
- smj 

DPIPAY = - TS 

y 

DPIPAZ = TS 

z 

FILDELVl - FILDELVl + K (DPIPAY - FILVELVl ) (Tag here 

y y geoci y "ALWAYSG") 

INTVECl = BJTVECl + FILDELVl 

7 7 7 

FILDELVl = FILDELVl + K ^ (DPIPAZ - FILDELVl ) 
z z geoci ' z' 

INTVECl = INTVECl + FILDELVl 

z z z 


PREL-4 


If ERECTIME 0: 


THETAN = THETAN - K ^ (FILDELVl + K _ INTVECl ) 

y y geoc5 z geoc2 z' 

THETAN = THETAN - K ^ (FILDELVl + K ^ INTVECl ) 

z z geoc5 y geoc2 j' 

If ERECTIME = 0: 


THETAN = THETAN + K . FILDELVl 
X X pipgyr y 

THETAN = THETAN - K ^ FILDELVl - K , INTVECl 

y y geoc3 z geoc4 z 

THETAN = THETAN - K ^ FILDELVl 

z z geoc3 y 

If LENGTH0T> 0: 


LENGTHOT = LENGTHOT - 1 


Proceed to "SLEEPIE" 


Perform "CHKCOMED" 


If LGYRO > 0: (gyros torquing, e.g. from "l/PIPA" 

compensation) 

Proceed to "SLEEPIE" 

ERCONP = ERCOIff + THETAN Note that restart protection 

^ from here onward is priority 

Perform "EARTHR'^^" 20g (job established at 22g) . 

THETAN = 0 

If PREMTRKO O: (set 0 by "AZMTHCGl") 

ERECTIME = ERECTIME - 1, limited ^ 0 

LENGTHOT = 9 
Proceed to "SLEEPIE" 

TS = LAUNCHAZ - OLDAZMTH 
If TS = 0: 

PREMTRXC = 1 

ERECTIME = ERECTIME - 1, limited 0 

LENGTHOT = 9 
Proceed to "SLEEPIE" 
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PREMTRXC = 1 


NEWAZMTH = lAUNCHAZ 

ERCOMP = TS 
z 

Perform "POSN17C" (zero elements not reset 0) 

OLDAZMTH = NEWAZMTH 
LENGTHOT = 

TS = "ERCOMP" 

Perform "IMUPULSE" 

Perform "IMUSTALL": if error return, proceed to "S0MERR2" 

otherwise, proceed 

Proceed to "ESTIMS" 


EARTHR"'^ 


TS = TS - T , 

1 mark 

If TS^ < 0: 

TS^ = TS^ + 
ERCOiyP = ERCOMP + 


T , = TS 
mark 

TS = "ERCOMP" 


2 centi-seconds 

fx 1 TSt ERVECTOR 
1. sml 1 


Perform "IMUPULSE" 

Perform "IMUSTALL": if error return, proceed to "S0MERR2" 

otherwise, proceed 


Return 

AZMTHCGl Established by "CHAZFOGC" for VySE, with priority l6g 

DSPTEMl = NEWAZMTH, converted to single precision twos complement, 

scale factor B-1, units revolutions. 

Perform "CLEANDSP" 
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TS = 0629 

vn 

Proceed to "GOFLASH" : if terminate, skip next line 

if proceed, proceed 

otherwise, proceed to previous line 

LAUNCHAZ = DSPTEMl, converted to double precision ones complement, 

scale factor BO, units revolutions 

PREMTRKC = 0 
Proceed to "PINBRNCH" 

GCOMPVER Established by "CKOPTVB" for V65E, with priority l6g 

TS = 03 and perform "NEWMODEX" 

- (1, 0, 0) 

Z, = (0, - cos C ,, , sin C ,, ) 

~dc azmth’ azmth 

Perform "MKRELEAS" (comes here if MODRBG =3, as it should) 

Perform the following for i = 1 and then i = 2: 

DSPTEMl+2 = i 

DSPTEMl+0 = TAZ. 

1 

DSPTEMl+1 = TEL. 

1 

TS = 0530 

vn 

Perform "GODSPRET" 

TS = 0641 

vn 

Proceed to "GOFLASH": if terminate, proceed to "GCOMP5" 

if proceed, proceed 

otherwise, proceed to 3rd previous line 

TAZ^ = DSPTMl+O 
TEL^ = DSPTEMl+1 
STARCODE = 1 . 
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TS = 0 


Perform "TARGDRVE" 

STARAD = fx 1 (sin TEL,, - cos TAZ, .cos TEL,, sin TAZ, cos TELj 

“ L smj 1'’ 1 1^ 1 1^ 

STARED = |X^J (sin TEL^, - cos TAZ^ cos TEL^, sin TAZ^ cos TEL^) 

XI = - "MRKBUFl" 

CDUSPOT = 

Perform "SXTNB" 

Perform "TRG---NBSM" 

LOSVEC == TS 

STARCODE = 2 (Tag here "NEXBNKSS") 

TS = 6 

Perform "TARGDRVE" 

XI = - "MRKBUFl" 

CDUSPOT = '^2-n. 

Perform "SXTNB" 

Perform "TRG*NBSM" 

STARBC = TS 
STARAC = LOSVEC 
Perform "AXISGEN" 

Perform "CALCGTA" 

TS = 0693 

vn 

Proceed to "GOFLASH" : if terminate, proceed to "GC0MP5" 

if proceed, proceed 

otherwise, proceed to previo\as line 

ERCOiyP = ERCOiyP + OGC 
Proceed to "GC0MP5" 
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GC0MP5 

TS = 02 and perform "NEWMODEX" 

End of job 
TAfiGDRVE 

If TS = 0: 

STAR = (sin TEL^, - cos TAZ^ cos TEL^, sin TAZ^ cos TEL^) 
If TS = 6: 

STAR = (sin TEL^, - cos TAZ^ cos TEL^, sin TAZ^ cos TEL^) 
Perform "SXTANG" 

DESOPTS = SAC 

sp 

DESOPTT = PAG 

sp 

Proceed to "RETARG" 

RETARG 

OPTIND = +0 
Perform "SXTMARK" 

If MARKINDX >0: (no mark obtained) 

Proceed to "RETARG" 

Perform "MKRELEAS" 

Return (to routine calling "TARGDRVE") 




PREL-9 


Rev. 0 


Quantities in Computations 

See also list of major variables and list of routines 


IdPIPADT : See IMU Computations . 

ISECXTl; Single precision quantity, scale factor B14, units centi- 
seconds, giving required period of computations for "ALLOOP" . 

Set to 0.5 seconds for gyro compassing. 

C . , : Erasable memory (double precision) constant, program notation 
^ "LATITUDE", scale factor BO, luiits revolutions. It gives the 
"local vertical astronomical latitude" of the pad. 

C : Erasable memory (double precision) constant, program notation 
azm "AZIMUTH", scale factor BO, imits revolutions. It gives the 
"azimuth of the vehicle Z-axis east of north." 

CDUSPOT: See Coordinate Transformations. 

DESOPTS, DESOPTT: See Optics Computations. 

DPIPAi (i = Y,Z): Value of accelerometer output modified for use in 
gyrocompassing. The y axis of this system is south and the z 
axis is east (from [Xgj^)* Scale factor of DPIPAi is BIA, units 
accelerometer counts . ^ 

ERCOIff: Value of gyro compensation to be sent to gyros, scale factor 
B21, units piilses (or scale factor BO, units revolutions, since 
one pulse is 2“^^ revolution) . Program notation also "ERCOMPl" . 

ERECTIME: Single precision length of time to be spent in erection phase , 
scale factor Bl^, units of five-second gyro compassing cycles. 

It is set to LEMGTHOT in "ESTIMS" . Program notation also "ERECTIMl' 

ERVECTOR: Earth rotation vector initialized in "ESTIMS", scale factor B1 
units gyro pulses/centi-second. 

FILDELVl : Filtered velocity in the y and z directions, scale factor 
BI 4 , units accelerometer counts. Here "y" is north. 

GCOLff, GCOMPSW: See IMU Computations. 

GEOCOMPl: Single precision cell set positive non-zero to indicate 

that gyro-compassing computations are being performed. The logic 
that checks this cell is not shown in this writeup. See 
Testing Routines. 

GTSWTLTl: Single precision cell, scale factor BI 4 , units centi-seconds, 
giving the value of TIMEl when "ALLOOP" last entered, and used to 
construct proper waitlist value for the next call in "SETGWLST" . 
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INTVECl : Summed values of FILDELVl and FILDELVl respectively, 
y z y z ^ 

scale factor B14, units accelerometer counts. 

: Single precision constant, program notation "1/2SECX", scale 
factor 614, units centi-seconds . Value is 50 x 2“^, 
corresponding to 0.5 second. 

K^, Single precision constant, program notation "l/PIPAGT", scale 

factor B8, units centi-seconds. Value is 06200g, corresponding 
to 0.5 seconds. 


K, , Single precision constant, program notation "BIT?", scale factor 
' B14, units of five-second gyro compassing cycles. Octal value is 
OOlOOg, corresponding to decimal 64, used to load LENGTHOT, and 
thence ERECTIME, for a change in input azimuth: value gives 64 x 5 = 
320 seconds for vertical erection. 


St8= 


Single precision constant, program notation "BITS", scale factor 
B14, units of five-second gyro compassing cycles. Octal value is 
00200^., corresponding to decimal 128, used to load LENGTHOT, and 
thence ERECTIME, at start of POl (in "GTSCPSS"): value gives 128 x 5 
640 seconds for vertical erection at start of P02. 


K Constant, program notation "GEOCONSl", scale factor BO, value 

geocl 


K Constant, program notation "GE0C0NS2", scale factor BO, value 

geoc^ 0.005. 

K •. Constant, program notation "GB0C0NS3", scale factor B7, units 
® ^ gyro pulses/accelerometer pulse. Value is 0.062, corresponding 

to a "true" value of 7*936. 


K , : Constant, program notation "GE0C0NS4", 
® ^ gyfo pulses/accelerometer pulse. Value 

to a "true" value of O.O384. 


scale factor B7, units 
is 0.0003, corresponding 


K 


geoc5' 


Curisbarib, prograiu notation "GE0C0NS5" 


gyro pulses/accelerometer pulse, 
to a "true" value of 64. 


Value 


scale factor B7, iinits 
is 0.5, corresponding 


^omegms' Constant, program notation "OMEG/MS", scale factor BO, units 
gyro pulse s/centi-second. Value is 0.24339048, corresponding 
approximately to ( 1 / 86 I 64 .O 932 ) x 10“^ x 221, where first term is 
earth rotation period in seconds (used to derive constant), second 
converts to centi-seconds, and third is niunber of gyro torquing pulse 
in one revolution. 


K . : Dummy constant used to indicate change in units between acc- 

pipgy^ elerometer pulses and gyro torquing pulses, scale factor B7. 
Value is 1.00, corresponding to 2' or 128. 
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LAUNCHA.Z: Value of desired laimch azimuth, scale factor BO, units 
revolutions. Since is used at the start of POl, should form 
part of prelaunch erasable load, although it can also be updated 
in "AZMTHCGl" (via VySE) . Program notation also "LUNCHAZl" . 

LENGTHOT: Single precision cell, scale factor B14, loaded in "GTSCPSS" 
with (for loading into ERECTIME) and at the end of "ALFLT", 

if a new azimuth specification received, with K, It is also 

used as a counter of the number of half-seconds°tnat have elapsed 
since the previous entrance to "EARTHR-^^", to control the nominal 
gyro compassing cycle of five seconds (via an initial setting to 
9 and a ISECXTl setting to 0.5 seconds). 

LGYRO: See IMU Computations. 

LOSVEC: Unit vector, scale factor Bl, serving in "GCOMPVER" as a 
temporary storage cell for the sighting vector to the first 
target . 

MARKINDX, MRKBUFl: See Optics Computations. 

NDXCTR; Single precision cell, scale factor B14, used in "GTSCPSS" 
to retain information on bit 14(GL0KFAIL) of FLAG'WRD3, which 
should be 0 if do POl. 

NEWAZMTH: Communication cell with "POSNiyC", scale factor BO, units 
revolutions, used to compute the required orientation of the 
stable member. Program notation also "NEWAZl" . Set to LAUNCHAZ 
in "GTSCPSS" and "ALFLT" (if an input azimuth change). 

OGC: See Coordinate Transformations. 

OLDAZMTH; Value of azimuth angle presently reflected in computations, 
scale factor BO, units revolutions. If, with PREMTRXC = 0, 
LAUNCHAZ = OLDAZMTH, it is concluded that no input change took 
place, and no re -initialization (via entrance to "ESTIMS") of 
gyro compassing is done. OLDAZMTH is set as described for 
NEWAZMTH, but at a slightly different time for restart considera- 
tions . 

OPTIND: See Optics Computations. 

PAC: See Coordinate Transformations. 

PERFDLAY: Communication cell with routine calling "GOESTIMS", set to 
one centi-second at start of "GTSCPSS", scale factor B28, units 
centi-seconds (the "LONGCALL" entrance to the waitlist system is 
used ) . 

PIPA: See IMU Computations. 
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PREMTRXC: Single precision cell, scale factor B14, initialized to 1 in 
"GTSCPSS" and set 0 at the end of "AZMTHCGl" . If sensed as 0 in 
"ALFLT"(when LENGTHOT has run dovm), then, if LAUNCHAZ ^ OLDAZMTH, 
gyro compassing is re -initialized. In any event, PREMTRXC is reset 
to 1. Program notation also "PREMTRXl" . 

SAC: See Coordinate Transformations. 

STAR: See Coordinate Transformations. 

STARAG, STARAD, STARBC, STARBD: See Coordinate Transformations. 

STARCODE: See Inflight Alignment (setting in "GCOMPVER" is not functional, 
since the cell is not displayed by the mark routine). 

T , : Value of time when previous earth-rate compensation was made, 
scale factor B28, units centi-seconds . 

TAZ^, TAZ 2 , TEL^, TEL^: Single precision erasable memory cells (which 
could be set as part of erasable memory load) giving azimuth 
(TAZ.) and elevation(TEL. ) for targets #1 and #2 used in PO 3 . 

For i[zimuth information, ^scale factor is B-1 in twos complement; 
for elevation, scale factor is B-2: in both cases, units are 
revolutions, 

THETAN: Value of required number of gyro torquing pulses (before 
rotation by [x 1 , and hence in the vertical, south, east 
system), scale®?actor B21, units pulses. Program notation 
also "THETANl" . 
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Rendezvous Computations 



J 


PRECSET 

T = T 
dec2 decl 

Perform "LEMCQNIC" 

If bit 5(IMCTFK}) of FUGWRD2 = 0: 

R o = R xa. 

-^ass3 -att 

^ass3 

If bit 5(LMACTFIG) of FLAGWRD2 = 1: 

R , _ — R . , 

“act3 “att 

^ct3 ^tt 

T = T 
decl dec2 

Perform "CSMCONIC" 

If bit 5(IMCTFLG) of FLAGWRD2 = 0: 

R , _ = R , , 

-:act3 —att 

V = V 
■^ct3 -^tt 

If bit 5(IMCTFLG) of FIAGWRD2 = 1: 

R _ = R , , 

— pass3 -att 

^ass3 ^tt 

UPl = 

CMYDOT = V • UPl 
^ct3 - 

AUTOY = R • UPl 

-act3 - 

MM = unlt(E^^^3 

IMYDOT = V ^ • UNRM 

■T)ass3 “ 

Return 


33/3A.1 Entered from "P33/P73B" and "P34/P74C" 


TITER = -16383 


SECMAX = K 


■max250 


R = R xo 
-aprec ^ct3 
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V 

= V 

~aprec 

~act3 

R 

= R 

“pprec 

~pass3 

V 

= V 

“Pprec 

~pass3 

Proceed 

to "ELCALC" 


ELCALC 

UK)S . unlt(Ep^^^j - 

OURM = unit(R^^^3 » 

UP = unit [ULOS - (ULOS • unitR , „) unitR 

\ -act3 -act3 1 

TS^ = (UNRM • UP 

TS — cos ^(UP • ULOS) sgn (elevation angle) 

If (UIDS • <0: 

TS = (1 - 2"^®) - TS 

(Set 1 in "P33/P73B"; 

If bit 14(ITSWIT0H) of FMGWRD? = 0: set 0 near start of 

"P34/P74C" if HAVEELEV = 0, 
T^pj^ = + NOMTPI and later there if it = l) 

If bit 7(HAVEEIM) of FLAGWRD2 = 0: 

ELEV = TS (TS derived above, elevation angle) 

TS = 0 (non-error return flag) 

Return (to routine calling "333/34.1") 

DELELO = DELEL 

DELEL = TS - ELEV (TS derived above, elevation angle) 

If IdELELI - K <0: 

* ' eeps 

TS = 0 (non-error return flag) 

Return (to routine calling "S33/34.1") 

TS = ^ TITER 

If TS = 0: 
sp 

Return (to routine calling "S33/34.1": TS / 0, indicating error) 
TITER = TS 

sp 

TS = (4 - ELEV) sgn - |r^^^ 3|) (The 4 is 180°) 

If TS ^ 0: ( in 12D; in 14D> units OD & 6D) 

Return (to routine calling "S33/34.1": TS / 0, indicating error) 
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PD28CS = - I Ract3l /|^ass3l 

TS = 1 -|PD28CS| 

If TS < 0: 

Return (to routine calling "S33/34-1": TS ^ 0, indicating error) 
PDOMEGA = (unitCUNRM^^ unitR^^^ 3 )) • 


-act3 


TS = unitR o ^ o 
— -^ass3 ■^ass3 


PDOMEGP 


“\Ea0t3l ' Vss 3 


IS, = (unitE ^^^3 » unitR^^^j ) • 


UNRM 


PDALFMPI = (cos"^ (unitR 3 • unitR^^^ 3 )) sgnTS^ - i + EIM 


TS, 


(Tag here "OKMAX") 


^^ass3 

= (i - cos-1 PD28CS) sgn (|Rp^^^ 3 l - 1 r^^^3| ) 

l^actsll^asssl (P^^ALFMPI + TS ) 
PDDELTM = K . > » |-pass3 I ±_ 

twopi pdoMBGA - PDOMEGP 
If I PDDELTM j - SECMAXj^ 0: 

PDDELTM = SECMAX sgn PDDELTM 
If TITER < 0: (i.e. first pass) 

TITER = 37777g 
DELTEEO = PDDELTM 
NOMTPI = NOMTPI + DELTEEO 
Proceed to "ADTIME+3" 

If (DELEL DELELO) <0: (i.e. sign change in angle) 

SECMAX = SECMAX / 3 
DELTEEO = - i(pDDELTM| sgn DELTEEO 
NOMTPI = NOMTPI + DELTEEO 
Proceed to "ADTIME+3" 


(i is 180°) 
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If |delelo\ - |DELEL|^0: 

DELTEEO = I PDDELTm| sgn DELTEEO 
NOMTPI = NOMTPI + DELTEEO 
Proceed to "ADTIME+3" 


TS = DELTEEO 
DELTEEO = - i DELTEEO 

NOMTPI = NOMTPI - TS + DELTEEO (same as NOMTPI = NOMTPI 

-1.5 DELTEEO J 
n-I 


Proceed to "ADTIME+3'' 

ADTIME+3 

Perform "INTSTALL" 

Set bit 4(CONICINT) of FLAGWRD3 = 0 

If NOMTPI 7 ^ 0: (as it would be expected to be) 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 

T^ , = NOMTPI 
decl 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 
X2 = RTX2 

If bit 12(CM00NFLG) of FLAGWRD8 = 0: 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 

T ^ = 0 
et 

RCV = R , shifted left X2 places (B29 earth, B27 moon) 

SipiTGC 

VCV = V , shifted left X2 places (B7 earth, B5 moon) 
Sip]?© c 

Perform "INTEGRVS" 


R , « ■“ R 4.4. 

-act3 -att 

-act3 —att 
Perform "INTSTALL" 
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Set bit 4(C0NICINT) of FIAGVM)3 = 0 
If NOMTPI ^ 0: 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 


, = NOMTPI 
decl 

Set bit 12(M00NFLAG) of FIAGWRDO = 1 
X2 = RTX2 

If bit 12(CM00NFLG) of FIAGWRD8 = 0: 

Set bit 12(M00NFLAG) of FIAGWRDO = 0 

T . = 0 
et 

RCV = R , shifted left X2 places (B29 earth, B27 moon) 

— -^prec’ 

VCV = V , shifted left X2 places (B? earth, B5 moon) 

- — pprec’ 

Perform "INTEGRVS" 

^ass3 ~att 

^ass3 “att 
Proceed to "ELCALC" 

S3/,/35.2 Entered from "HARTBURN", "P34/P74C", and "P35/P75B" 
SUBEXIT = Return address 


Perform "IMTSTALL" 


Set bit 4(C0NICINT) of FLAGWRD3 = 0 

If NNl = 0: 

sp 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 

T = T 
decl pass4 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 
X2 = RTX2 

If bit 12(CM00NFLG) of FLAGWRD8 = 0: 

Set bit 12(M00NFLAG) of FUGWRDO = 0 

T ^ = INTIME 
et 

RCV = Rpggg 3 , shifted left X2 places (B29 earth, B27 moon) 


VCV = ^ass3^ shifted left X2 places 


(B7 earth, B5 moon) 
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Perform "INTEGRVS" 


^arg 

Proceed to "S3435-25" 

33435.25. 

^ass4 ”att 

TSi = (^i^^Ract3 ‘ 

TS =(cos-l (unitR^^y • unitR^^^g)j sgn TS^ 


If TS < 0: 

TS = TS + (1 - 2"^®) 


ACTCENT = TS 

DELLT4 = T , - INTIME 

pass4 

TS, =NNI 

1 sp 

TS„ = K „ 

2 epsfour 

%nit — act3 

V. = V 
— init — act3 


Perform "INITVEL" 

TS^ = - IMM 

TS„ = - unitR , „ 
—3 — act3 

TS^ = TS^ ^5- UNRM 


DELVLVC = 



DELVEETl 


Proceed to address specified by SUBEXIT 
S 34 / 35 .3 (Entered from "S34/35.5" if new velocity components input) 


TS 2 = - UNRM 

TS^ = - unitR , „ 
—3 •“act3 
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Set bit 4(C0NICINT) of FLAGWRD3 = 0 
If NOMTPI i 0: 

Set bit 4(C0NICINT) of FIAGWRD3 =1 

T, , = NOMTPI 
decl 

Set bit 12(M00NFLAG) of FLAGWRDO = I 
X2 = RTX2 

If bit I2(CM00NFLG) of FIAGWRD8 = 0: 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 

T . = 0 
et 

RCV = R , shifted left X2 places (B29 earth, B27 moon) 

- — pprec' 

VCV = V , shifted left X2 places (B? earth, B5 moon) 

— — pprec 

Perform "INTEGRVS" 

^ass3 ~att 

^ass3 ~att 
Proceed to "ELCALC" 

S3/,/35.2 Entered from "HARTBURN", "P34/P74C", and "P35/P75B" 
SUBEXIT = Retiim address 
Perform "INTSTALL" 


Set bit 4(C0NICINT) of FLAGWRD3 = 0 

If NNl = 0: 
sp 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 

T = T 
decl pass4 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 


X2 = RTX2 

If bit 12(CM00NFLG) of FLAGWRD8 = 0: 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 


T ^ = INTIME 
et 

RCV = Rpass 3 ^ shifted left X2 places (B29 earth, B27 moon) 
VCV = shifted left X2 places (B7 earth, B5 moon) 
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Perform "INTEGRVS" 


^arg 

Proceed to "S3435.25" 

S3435.25 

^ass4 “att 

TS =(cos“^ (unitR^^^^ • unit^^^^) J sgn TS^ 


If TS < 0: 

TS = TS + (1 - 2“^®) 
ACTCENT = TS 

DELLT4 = T , - INTIME 

pass4 

TS^ = NNI 

1 sp 

TS„ = K „ 

2 epsfour 

— init -act3 

V. . , = V , _ 

— init — act3 

Perform "INITVEL" 


TS 2 = - UNRM 

TS„ = - unitR . o 
~3 —acts 


TS^ = TS^ * UNRM 


DELVLVC = 



DELVEET2 


Proceed to address specified by SUBEXIT 
S 34 / 35 .3 (Entered from "S34/35.5" if new velocity components input) 


TS 2 = - UNRM 

TS„ = - unitR , „ 
“3 “act3 
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TS^ = TS^ UNEM 


DELVEETl = DELVLVC 


TS^ 

TS^ 

TS^ 


Perform "INTSTALL" 

Set bit 4(CONICINT) of FLAGWRD3 = 0 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 (superseding previous line) 

T = T 
decl pass4 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 
X2 = RTX2 

If bit 12(CM00 NFIjG) of FIAGWRD8 = 0: 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 

T . = T. 
et ig 

RCV = shifted left X2 places (B29 earth, B27 moon) 


VCV = (V 


act3 


+ DELVEETl), shifted left X2 places (B? earth, 

B5 moon) 


Perform "INTEGRVS" 

^arg — att 

TS^ = ULOS 

TS^ = - unit(ULOS DERM) 
TS^ = TS^ ULOS 

DELVEET^ 

Return 


DVLOS = 


TS, 


TS, 
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INITVEL (Entered with TS^, OD, set to iterations; TS^, 2D, angle to 180°) 
Set bit 2(GUESSSW) of FLAGWRDl = 1 

R , = (tag to enter here is "HAVEGUES", from "S40.9") 

-targl -barg ^ 

If RTX2 ^0: (i.e. not earth-centered) 

-init ^ -init’ shifted left 2 places (B27) 

V. . , = V. , shifted left 2 places (B5) 

-xnit -init^ ^ 

R. -. = Rx , shifted left 2 places (B27) 

—targl — bargl’ 

ITCTR = -1 

C0ZY4 = cos TS^ (TS^ set before enter, cell 2D) 

VTARGTAG = TS^ (TS^ set before enter, cell OD) 


RIVEC = R. 

- — xnit 


R2VEC - R. T 
- —targl 

TDESIRED = DELLT4 


UN = unit( imitR. 


init 


-''-V. .,) 
-init 


C0ZY4 + unit^^^g^ 


unitR . . , 
— init 


C0ZY4 

Set bit lO(NORMSW) of FLAGWRD7 = 0 


Proceed to "INITVEL2" 


IMITVEL2 

If C0ZY4 < 0: 

Set bit lO(NORMSW) of FLAGWRD7 = 1 

R2VEC = (R2VEC| unit ^R2VEC - (R2VEC * UN) UN^ 

If ITCTR <0: (i.e. first pass) 

^ T - R2VEC 
-targl - 

TS = - unitRlVEC unitR2VEC 
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TS^ = RTKl 
If TS X 0: 


(-2 for earth, -10 for limar) 


TS^ = TS^ - 8 (-10 for earth, -18 for lunar) 

If TS^ i -10: 

TS = - TS (i.e. sets to unitRlVEC unitR2VEC) 
GEOMSGN = 22437 q sgn((TS * unitRlVEC) • unitR2VEC^ 


XI = RTXl 
Perform "LAMBERT" 

Set bit 2(GUESSSW) of FLAGWRDl = 0 

V, . = WEC 

— iprune — 

If VTARGTAG = 0, proceed to "INITVEL?" 
Perform "INTSTALL" 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 

If RTX2 ^0: (i.e. moon) 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 

RIVEC = R. . . 

- -init 

RCV = R. . . 

- -onit 

VCV = V. . 

— — iprxme 

T ^ = INTIME 
et 

T^ n = T ,. + DELLT4 
decl et 

Set bit 4(C0NICINT) of FLAGWRD3 = 0 
Perform "INTEGRVS" 


target -attl 


(B7 earth, B5 moon) 


ITCTR = ITCTR + 1 

If ITCTR = VTARGTAG: 

R2VEC 

Proceed to "INITVEL7" 


Ri 

-^argl 
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(B29 earth, B27 moon) 


R2VEC = R2VEC + - R^,,3_ 

Proceed to "INITVEL2" 


INITVEL7 

DELVEET2 = V, 

■y =7 (Vj. 4 - computed in "INITV" if VTARGTAG 

^prijne target ^-target 


. . . - V. .. 

-iprune — init 


= 0) 


If RTX2 ^ 0: (i.e. not earth-centered) 

V, . = Ah . , shifted right 2 places 

"H-prune — tprune 

V. . = V. . , shifted right 2 places 

-iprune -iprime’ 

R^ T = ^ T , shifted right 2 places 
-targl -targl’ 

DELVEET2. = DELVEETl, shifted right 2 places 


Rx = Su- T 

-targ —targl 

Set bit 8(XDELVFLG) of FLAGWRD2 = 0 

Retiirn (to routine calling "INITVEL") 

CSI/A (Entered from "P32/P72B'' for P31, P32, and P72) 

Set bit 15(S32.1F1) of FLGWRDll = 0 (causes "CSl/Bl" exit if 1 and 

DELVCSI excessive; if 0, set 1) 

Set bit 14(S32.1F2) of FIGWRDll = 1 (causes "CIRCL" to exit to "FRSTPAS" 

where bit is reset to 0) 

Set bit 13(S32.1F3A) of FLGWRDll = 0 

Set bit 12(S32.1F3B) of FIGWRDll = 1 (hence bits 13-12 = OI 2 ) 

LOOPCT = 0 
CSIALRM = 0 


Proceed to "CSI/B' 


CSI/B 


TS =\/2'‘™'/(ISactll iBactll /IVsssI 0 


DELVCSI = TS 




unit(UPl unitR^^^^) 


')• 2actl 


DELDV = K. . , , 
initst 

Proceed to "CSl/Bl' 
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CSI/BI 




LOOPCT = LOOPCT +1 
X2 = 6 (error index) 

If LOOPCT - X 0, proceed to "SCNDSOL" 

If |dELVCSI| - ^0: (tag here "CSI/B2") 

X2 = 7 (error index) 

If bit 15(S32.1FI) of FLCWRDII = 1, proceed to "SCNDSOL" 

If bits 13-12 (S32.1F3A and S32.1F3B) of FLG-WRDll = ll^: 
Proceed to "SCNDSOL" 

Set bit 15(S32.1F1) of FLGWRDll = 1 (tag here "CSI/B22") 

DELVCSI = K , „ sgn DELVCSI 

dvmax^ 

DELVEETl = DELVCSI unit(UPl unitR^^^^) (tag here "CSI/B23") 

V = DELVEETl + V , , 

“act4 “ “acti 

Reset overflow indicator 


X2 = RTX2 


WEC = shifted left X2 places (B? earth, B5 moon) 


XI = RTXl 

Set bit 9(RVSW) of FIAGWRD? = 1 


(means newR, V not desired) 


RVEC = ^actl’ shifted left X2 places (B29 earth, B27 moon) 


SNTH = K 


sn359p 

CSTH = K 

cs359p 

Perform "TIMETHET" 
HAFPAl = i T 
XI = RTXl 


(as "y component" of vector load; "z component" 
loading not effective) 


TS = K 


rpad 
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(i.e. not earth) 


If XI i -2: 


TS = iRLSj 
XXXALT = TS 
Perform "APSIDES" 

POSTCSI = (TS^p - XXXALT), shifted right RTX2 places (B29) 

If CENTANG ^ 0: (loaded in R3 of N55 in "P72" with non-zero 

value to force transfer) 


Proceed to "CIRCL" 

If EGG - < 0: (EGG computed in "APSIDES") 

Proceed to "GIRGL" (due to EGG scaling, exit-i taken if below 

about O.OOO 4 S 8 ) i*e. 2 ■^■^) 

TS = Rl, shifted right RTX2 places (B29) (R1 has 1 rVEC| due to 

"APSIDES", i.e.|Rg^^^il) 

l^^actl * ^act4 ^ t " ^nickeldp ^ (constant is 7 fps) 

Proceed to "GIRGL" 

TS^ = P - 1 (scaled B2, in PD I 4 D) 

y 

TS^ = P Rl, shifted right RTX 2 places (B33) 

TS = y^sT (RTSRldMJ / TS) (B- 3 I earth, B-28 moon: TS 2 

rescaled to B28 before root) 


If bit 12(GM00NFIG) of FLAGWRD8 = 1: 

Shift TS^ left 3 places (make B- 31 ) 

= S^ctl • (tag here "CS1/B3") 

TS. = |hdOTV| TS (scaled B2, In PD 12D) 

TS^ = 0 (in PD I 6 D) 

z 

TS = unitTS^ 


SNTH = TS 


X 


GSTH = TS ("z component" loading not effective) 

y 

X2 = RTX2 

WEC = - sgn RDOTV, shifted left X2 places (B7 earth, B5 moon) 

XI = RTXl 

Set bit 9(RVSW) of FLAGWRD7 = 1 (means new R, V not desired) 
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RYEC = shifted left X2 places (B29 earth, B27 moon) 

Perform "TIMETHET" 


TS = T 

T = T . + T 
csi2 csi 

If RDOTV < 0: 

TS = HAFPAl 


(ineffective, since written over below) 


TS 


Proceed to second line of "CIRCL" 


CIRGL 


TS = 0 


(Tag here "NTP/2") 

T . (Tag here "NTP/2A") 

C O-L 


Perform "INTSTALL" 

Set bit 4(C0NICINT) of FLAGWRD3 = 0 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 (superseding previous line) 

T = T 
decl cdh 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 
X2 = RTX2 

If bit 12(CM00NFIG) of FLAGWRDB = 0: 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 

T , = T . 
et csi 

RCV = shifted left X2 places (B29 earth, B27 moon) 

VCV = shifted left X2 places (B7 earth, B5 moon) 

Perform "INTEGRVS" 


T . o = T . + 2 HAFPAl 

csi2 CSI 

If Ml = 4: 


T -o = T ._ + HAFPAl 
csi2 csi2 

T = NNl HAFPAl - TS + 
cdh 


(error index) 


X2 = 5 
If (T^ 

Proceed to "SCMDSOL" 


. - T .u ) < 0: 

tpi cdh 


REND-13 


Rev. 0 


R , ^ “ R 4.4. 

—diCt2 —att 

— act2 — att 

Perform "INTSTALL" (tag here "CSINEKTl") 

Set bit 4(CONICINT) of FIAGWRD3 = 0 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 (superseding previous line) 

T = T 
decl cdh 

Set bit 12(M00NFUG) of FLAGWRDO = 1 
X2 = RTX2 

If bit 12(CM00NFIG) of FLAGWRD8 = 0: 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 

T , = T . 
et csi 

RCV = shifted left X2 places (B29 earth, B27 moon) 

VCV = shifted left X2 places (B? earth, B5 moon) 

Perform "INTEGRVS" 

•^ass2 —att 

^ass2 ^tt 
Perform "CDHMVR" 

X2 = RTX2 

VVEC = shifted left X2 places (B7 earth, B5 moon) 

RVEC = shifted left X2 places (B29 earth, B27 moon) 

XI = RTXl 

TS = K , 
rpad 

If XI -2: 


(i.e. not earth) 


RLS I 


TS = 

XXXALT = TS 
Perform "APSIDES" 

POSTCDH = (TS^p - XXXALT), shifted right RTX2 places (B29) 
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Perform "INTSTALL" 


Set bit 4(CONICINT) of FLAGVJRD3 = 0 

Set bit 4(CONICINT) of FIAGWRD3 = 1 

T = T 
■^decl tpi 

Set bit 12(M00NFIAG) of FUGWRDO = 1 
X2 = RTX2 

If bit 12(CM00NFLG) of FIAGVJRD8 = 0: 

Set bit 12(M00NFIAG) of FLAGWRDO = 0 
T ^ = T 


(superseding previous line) 


et 


cdh 


RCV = shifted left X2 places (B29 earth, B27 moon) 

VCV = shifted left X2 places (B? earth, B5 moon) 

Perform "INTEGRVS" 


R J.O ^ 4-4- 

“act3 ~att 

V = V 
^ct3 “att 

PDUL = unitR ^^^2 sin ELEV + unit(UPl unitR^^^^) cos ELEV 


PDCl = PDUL • R , ^ 
- -act3 


PDC2 = R „ 
— pass3 


(tag here "CSINEXT2") 
2 


R _ - R . _ • R ,„ + PDCi 

■^ass3 ~act3 ~act3 


(formed triple 
precision) 


If PDC2 < 0: 

X2 = 1 (error index) 
If LOOPCT = 1: 

CSIALRM = X2 


Proceed to "ALMXIT" 
DELDV = i DELDV 
DELVCSI = DVPREV - DELDV 
Proceed to "CSl/Bl" 
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(tag here "K10RK2") 


PCDK2 = - PDCl -\/pDC2’ 

PCDKl = - PDCl + \/pbC2’ 

PCCK = PCDK2 (same cell) 

If |PCDK2| - |PCDKl| 0: 

PCDK = PCDKl 

PDUB = unit (PCDK PDUL + 

TS = (unitRp^^g^ -=«■ PDUB) • (unitV^^^^^ * unitR^^g^^) 
PCDGAMMA = cos"^ (unit^^gg 3 • PDUB) sgn TS 
If bit 14 ( 332 . 1F2) of FLGWRDll = 1: 

Proceed to "FRSTPAS" 


PDSL = (PCDGAMMA - GAMPREV) / (DELVCSI - DVPREV) 

DVPREV = DELVCSI 

If bits 13-12 (S32.1F3A and S32.1F3B) of FLGWRDll = ll^: 

If GAMPREV (PCDGAMMA - GAMPREV) < 0: 

DELDV = K. . , , T sgn DELDV 
initstl ^ 

Set bits 13-12 (S32.1F3A and S32.1F3B) of FLGWRDll = 10^ 
Proceed to "FRSTPAS" 

Proceed to "FIFTYFPS" 

If bits 13-12 (S32.1F3A and S32.1F3B) of FLGWRDll = OO 2 : (tag "THRDCHK") 


Proceed to "FIFTYFPS" 

DELDV = PCDGAMMA / PDSL 

GAMPREV = PCDGAMMA 

If IdELDvI - K t X 0: 
\ ' epsilnl 

^delmaxl 


(tag here is "NEWTN") 


If iDELDVi - K X 0: 


DELDV - K^ T T sgn DELDV 
delmaxl 

DELVCSI = DELVCSI - DELDV (tag here is "CSISTEP") 
Proceed to "CSI/BI" 
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X2 = 2 (error index) 


(tag here is "CSl/SOL") 


n 




XI = RTXl 


(-2 for earth, - 10 


If POSTCSI - K . <0: 

pinine_2_jj.^ 

Proceed to "SCNDSOL" 

X2 = 3 (error index) 

If POSTCDH - K . <0: 

pmne_2_xi 

Proceed to "SCNDSOL" 


T1T0T2 = T - T . 

cdh csi 

X2 = 4 (error index) 
If T1TC1T2 - <0: 

Proceed to "SCNDSOL" 


for moon) 

(subscript 0 for earth, 8 for moon) 


X2 = 5 

TS = T, . - T 

tpi cdh oOOsec 

If TS <0: 


Proceed to "SCNDSOL" 

Proceed to "P32/P72C" (successful return) 


FRSTPAS 

GAMPREV = PCDGAMMA 

DVPREV = DELVCSI 

DELVCSI = DELVCSI - DELDV 

Set bit 14(S32.1F2) of FIGWRDll = 0 

Proceed to "CSl/Bl" 


FIFTYFPS 

DELDV = PDSL sgn GAMPREV (constant is - 50 fps) 

DELVCSI = DELVCSI - DELDV 
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Set bits 13-12 (S32.1F3A and S32.1F3B) of FLGWEDll = 11^ 

GAMPREV = PCDGAMMA 

Proceed to 4th line of "CSl/Bl" 

SCNDSOL 

If bits 13-12 (S32.1F3A and S32.1F3B) of FLGWRDll ^ 01^: 
Proceed to "ALMXIT" 


CSIALRM = X2 

Set bit 15(S32.1F1) of FLGWRDll = 0 
Set bit 14(S32.1F2) of FLGWRDll = 1 

Set bits 13-12 (S32.1F3A and S32.1F3B) of FLGWRDll = 00^ 
LOOPCT = 0 


Proceed to "CSI/B" 
ALMXIT 


TS 


= K 


alarmtb 


CSIALRM-1 


Perform "VARALARM" 


TS = 0509 (Note that if in P 3 I and do not V32, bit 7(HAFLAG) 

^ of FIGWRDll -would remain set, inhibiting P32/P72) 

Proceed to "GOFLASH" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed to previous line 
otherwise, proceed 

Proceed to 2nd line of "P72" 

CDHMVR Entered from "CIRCL", "HARTBURN", and "P33/P73B" 

UNVEC = unitR , „ 

- -act2 

CSTH = unitR ^ • UNVEC 
-^ass2 — 

SNTH = Vl - CSTh2‘ Bgn ( (- • UPl) 

X2 = R1X2 

VVEC = ^ass2 ’ shifted left X2 places (B7 earth, B5 moon) 
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XI = RTXl 


Set bit 9(RVSW) of FLA.GWRD7 = 0 (means new R, V are desired) 
RVEC = Spggg 2 > shifted left X2 places (B29 earth, B27 moon) 
Perform "TIMETHET" 


PD18V = T^, shifted right RTX2 places (B7) 
PD02R =|tS^|, shifted right RTX2 places (B29) 
DIFFALT = PD02R - 

TS = Rl, shifted right RTX2 places (B29) 


PDSEMAP = TS / RdA (gives semi-major axis of passive vehicle) 

PDSEMAA = PDSEMAP - DIFFALT 

PDVAV = (PD18V • UNVEC) (PDSEMAP / PDSEMAA )^/^ 

TS = 2 RTMU /|Rg^(,^.2l " ^TMU / PDSEMAA 

PDVAH = \/tS - PDVAV^' 


V , ^ = PDVAH unit(UPl UNVEC) + PDVAV UNVEC 

DELVEET2 = V - V . „ 

— “act3 “act2 


Return 


Quantities in Computations 

See also list of major variables and list of routines 


ACTCENT: Value of active vehicle central angle of transfer computed in 

"S3435.25" (entered for P34/P74 and P35/P75), scale factor BO, units 
revolutions, in range 0 - 360°. It can be displayed at crew option in 
R1 of N52; if too close to 180°, then the maneuver parameters should 
be reconsidered. 

AUTOY: See Burn Control. 

CENTANG: See Burn Control. 

CMYDOT: See Burn Control. 

COZYA: Criterion used in ''INITVEL2" to decide if input position vector 

and target position vector are too close to 180 degrees, scale 

factor B2. It is initially loaded with the cosine of TS^^in 

"INITVEL", where TS^, stored in push-down list location ^ as 

an angle, BO revolutions, is angle away from 180^ within which 

"INITVEL2" rotates the target vector to be in the plane of 

R. and V. ... Before entering "INITVEL2", C0ZY4 is changed 
-init -init 

to be the sum of the cosine and the dot product of the initial 
and original target vectors (hence if it is negative, then the 
"INITVEL2" logic must be invoked: e.g. if TS^ set to 15 degrees, 
then an angle of 165° to 195° would cause the R2VEC rotation) . 

If outside the cone, then NORMSW is left at 0, causing "LAMBERT" 

(in "GEOM") to compute a UN as perpendicxilar to original and 
target position vectors. 


CSIALRM: Cell used single precision (although initialization to 0 is done 
double precision), scale factor BI4, to contain the value of the index 
used with K ^ +h ^° g®>^®^site a program alarm in "ALMXIT" . If 
"SCNDSOL" is entered for an alarm condition but bits 13-12 of FLGWRDll 
indicate that computation starting (value of 012^’ then CSIALRM loaded 
with the cause of that entrance to "SCNDSOL"; a subsequent entrance, 
perhaps for a different reason, woiiLd cause "ALMXIT" to display the 
first alarm code. 


CSTH: See Conic Routines. 


DELDV: Value of required change to DELVCSI, scale factor B7, \xnits meters/ 
centi-second . 

DELEL: Value of error between derived and specified values of elevation 
angle in "ELCALC", scale factor BO, units revolutions. 

DELELO: Value of previous DELEL, scale factor BO, units revolutions, in 26D. 

DELLT4: Communication cell with "INITVEL", containing desired time of 

flight from R. to R, , scale factor B28, units centi-seconds . 

° -init ^arg’ ’ 

It is loaded into TDESIRED for use in Lambert routine . 

DELTEEO: Value of time increment information in "ELCALC" (generally the 
value added to NOMTPl), scale factor B28, \mits centi-seconds. 
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DELVCSI: Magnitude of velocity change required for the CSI burn (as determined 

in "CSI/B"), scale factor B7, units meters/centi-second. The vector 
velocity is DELVEETl, although the latter quantity can be superseded if 
desired by loading new velocity components for the N8l display in 
"P32/P72C" . This revised loading would not be reflected in DELVEETl, however. 

DELVEETl: Vector velocity change required for the CSI burn, scale factor 
B7, units meters/centi-second. Magnitude is in DELVCSI. It can be 
superseded in "P32/P72C" by loading new velocity components for the 
N8I display, and it is computed near the start of "CSl/Bl" . Has CDH in P33/73- 

DELVEET2: Vector velocity change required for the CDH burn, scale factor 

B7, units meters/centi-second, computed in "CDHMVR" . It can be super- 
seded in "P33/P73B" by loading new velocity components for the N8I 
display. The value of the quantity may also be displayed in "P32/P72C" 

(in local vertical coordinates) as originally derived (i.e. not modified 
due to manual writeover, if any, of DELVEETl information). 

DELVEETl: Vector velocity increment required to perform maneuver, computed 
in "INITVEL7" (as - ^init^* "INITVEL7", scale 

factor is B7, units meters/centi-second. A new value is computed 
in "S34/35.3" from local-vertical inputs if required. DELVSIN same cell. 

DELVLVC: See Burn Control. 

DIFFALT: Difference in altitude between passive and active vehicles at CDH 
time (negative if active above passive vehicle), scale factor B29, 
units meters, computed in "CDHMVR". It is displayed in R1 of N75. 

DVLOS: See Burn Control. 

DVPREV: Previous value of DELVCSI, scale factor B7, units meters/centi- 
second. 

ECC: See Conic Routines. 

ELEV : Value of elevation angle between the active/passive vehicle line 
of sight and the active vehicle local horizontal at TPI ignition 
time, referenced to the direction of flight, scale factor BO, units 
revolutions (in range 0 degrees to 36O degrees). An input value 
of 0 in P34/P74 causes the angle to be derived from the specified 
time; a non-zero value causes the TPI time to be derived (in the 
routine beginning at "S33/34.1")' 

GAMPREV: Previous value of PCDGAMMA, scale factor Bl, units revolutions. 

GEOMSGN: See Conic Routines. The magnitude of the niimber is not 

significant (provided non-zero), but only the sign: the magnitude 

loaded in "INITVEL2", for programming convenience, is the most 

significant half of K (see Orbital Integration). 

muerQ 

HAFPAl: Value of half the period of the active vehicle after completion of 
the CSI maneuver, scale factor B28, units centi-seconds, computed in 
"CSI/BI". It is used in "CIRCL" to determine T^^^^ and T^^^p. 
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INTIME: Communication cell with "INITVEL" containing the time tag of 
the state vector in R. and V. scale factor B28, \jnits 
centi-seconds . Not i^uared i?fi£RGTAG = 0. 


ITCTR: Single precision counter, scale factor BI4, of the number of 
iterations of "INITVEL" computations which have been performed. 

It is set to an initial condition of -1, so that a value of +1, 
for example, would mean that 2 passes thru "LAMBERT" and 
"INTEGRVS" are performed, with the output of "LAMBERT" used in the 
"INTEGRVS" routine to refine the target position. The desired 
number of iterations is specified by the contents of VTARGTAG. 

K/„ : See Orbital and Rendezvous Navigation. 

bOOsec 


K , (i = 0 - 6): Set of single precision octal constants, program 

alarmtb^ notation (i = O) "ALARM/TB", used in "ALMXIT" to specify the 
alarm pattern based on (CSIALRM - l). Value of constants is equal 
to (600rt + i): if CSIALRM = 3, for example, then alarm 602^ is 

provided. Alarm 600g is generated in "CIRCL" if PDC2 negative on 
first pass (LOOPCT - l), meaning no intersection of desired TPI LOS 
with the necessary circle (this is the only alarm not buffered via 
"SCNDSOL", see CSIALRM); Alarms 601^ - 604 q are generated at the end 
of "CIRCL" for CSI periapsis too small, CDH periapsis too small, 

T1T0T2 too small, and T2T0T3 too small respectively (604* also generated 
at start of "CIRCL" if T ,, greater than T, . ) ; Alarm 605j* is generated 
near the start of "CSl/Bi'" if LOOPCT is noteless than ^ ; and 

Alarm 6O6* is generated at same point if DELVCSI magnituae^excessive 
and bit 15(S32.1Fl) of FLGWRDll = 1. 


K : Constant, program notation "CS359t", scale factor Bl, octal value 

17777* 37776*, corresponding to a true value of (l - 2“^°). Used 
in "CSI/BI" to set CSTH for "TIMETHET", so as to compute the period of 
the orbit (see i.e. an angle of'«360°. 

^delmaxl" program notation "DELMAKl", scale factor B7, units 

meters/centi-second . Value is O.6O96 x 2~'^, corresponding to 
200 X 0.304s X 10“ X 2“', where first term is value in fps, second 
conArerts to meters, third converts to centi-seconds, and 4th is scale 
factor. 

Kdvmaxi* Constant, program notation "DVMAXl", scale factor B7, mits 
meters/centi-second. Value is 3*048 x 2“7, corresponding to 
1000 X 0.3048 X 10“^ X 2“'^, where first term is value in fps, 
second converts to meters, third converts to centi-seconds, and 
4th is scale factor. 


^dvmax2' program notation "DVMAX2", scale factor B7, units 

meters/centi-second. Value is 3-014472 x 2~'^ , corresponding to 
989 X 0.3048 X 10"2 X 2“7, where first term is value in fps, 
second converts to meters, third converts to centi-seconds, and 
4th is scale factor. 

^eens’ ^o’^stant, program notation "ELEPS", scale factor BO, units 
^ revolutions. Value is 0.27777777E-3, corresponding to 0.1°. 

^epsfour* “^o^stant, program notation "EPSFOUR", scale factor BO, imits 
revolutions. Value is 0 . O416666666 , corresponding to 15°. 


n 


) 
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epsilnl’ program notation "EPSILNl", scale factor B?, imits 

meters/centi-second. Value is 3.O48E-4 x 2“', corresponding to 
0.1 X 0.3048 X 10“2 X 2“', where first term is value in fps, second 
converts to meters, third converts to centi-seconds, and 4th is 
scale factor. 


Kfif dp- Constant, program notation "FIFPSDP", scale factor B?, units 
meters/centi-seco^ . Value is -0.1524 x 2 ', corresponding to 
- 50 X 0.3048 X lO"*^ X 2“', where first term is valiie in fps, 
second converts to meters, third converts to centi-seconds, and 
4th is scale factor. 

K. : Constant, program notation "INITST", scale factor B7, units meters/ 

® centi-second. Value is O.O3048 x 2“', corresponding to 10 x O.3048 x 
10“^ X 2“' , where first term is value in fps, second converts to meters, 
third converts to centi-seconds, and 4th is scale factor. 


K. ^ : Constant, program notation ''INITSTl", scale factor B7, units meters/ 
® centi-second. Value is O.O3048 x 2~', the same as K. ^ . Stored 

in a separate memory cell in "high" part of memory because 01 memory 
allocation constraints (and interpretive language limitations). 


: Constant, program notation "LOOPMX", scale factor B28. Octal value 
oopmx oOOOOg 00020rt, corresponding to decimal I6 (giving an error exit 
from the start of "CSl/Bl" after 15 complete iterations done). 


K Constant, program notation "MAX25Q" 

“^^^centi-seconds. Value is 25E3 x 2-28, 


scale factor B28, units 
corresponding to 250 seconds. 


nickeldp’ Constant, program notation "NICKELDP", scale factor B7, units 
^ meters/centi-seco^. Value is 0.021336 x 2“7, corresponding to 
7 X 0.3048 X 10“ X 2“', where first term is value in fps, second 
converts to meters, third converts to centi-seconds, and 4th is scale 
factor. Value of constant originally corresponded to O.O5 fps, hence 
the notation. 


^onethth' Constant, program notation "ONETHTH", scale factor B3, value 

0.0001 X 2-3 (first term is basic value and second scale factor). 

K mine ' Constant, program notation "PMINE", scale factor B29, units meters, 
^ ®0 giving the minimum periapsis value (POSTCDH and POSTCSI) for earth- 

centered computations. Value is 157420 x 2-29, corresponding to 
85 X 1852 X 2-29^ where first term is value in nmi, second converts 
to meters, and third is scale factor. 

^pmine * Constant, program notation "PMINM" (stored at "PMINE" + 8), scale 
^ 8 factor B29, units meters, giving the minimum periapsis value for 

moon-centered computations. Value is 10668 x 2-29, corresponding to 
35000 X 0.3048 X 2-29, where first term is value in feet, second 
converts to meters, and third is scale factor. 


K , : See Burn Control . 
rpad 

K : Constant, program notation "SN359+"j scale factor Bl, value 

sn359p _0.000086601. True valiie is -0.000173202, or approximately 
sin 359.99°: see 
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K Constant, program notation "TWOPI", scale factor BI+, value 

twopi 6^283185307 X 2“^, corresponding to 2T (where IT = 3.1415926535). 


LMIDOT: See Burn Control. 

LOOPCT: Iteration counter for "CSl/A" computations, initialized to 0 in 
"CSI/A” and "SCNDSOL", scale factor B28. 

NNl: Value of "periapsis code" displayed by R1 of N55, scale factor BI 4 , 

program notation also "NN" . Used in P3l/P32/P72 (where initialized to 
1 prior to N55 display) to specify the future apsidal crossing of the 
active vehicle at which CDH should occur. Used in "P82" in the 
control of Minkey program sequencing, although the attempted "countdown" 
of the cell there is ineffective since bit 6(CSISFLAG) of FLGWRDll = 0. 
Used in P34/P74 to specify the number of precision offsets that the 
"INITVEL" package should employ (it is initialized to 0 in "P74" and 
used in "S3435.25"). The P34/P74 value would be used for the subsequent 
P 35 /P 75 performance. The identification as "periapsis code" is a hold- 
over from the former P17 application. 


NOMTPI: Value of computed correction to 
centi-seconds , loaded in "ELCALC" . 
state vector time tag to remain T 
continues for the proper updated v 

P: See Conic Routines. 


T . , scale factor B28, units 
ffiis scheme permits R /fe 
while the iteration ^ 
ue of using conic integration. 


PCDGAMMA: Error angle used in the "CSl/A" computations, scale factor Bl, units 
revolutions, stored in push-down list location OD. It is the central 
angle between the passive vehicle position vector at TPI and PDUB. 

PCDK: Value of "weight" for PDUL in computing PDUB, scale factor B29, units 
meters, corresponding to the lesser (in magnitude) of PCDKl and PCEK2. 
Stored in push-down location lOD. 


PCDKl: Value corresponding to one of the solutions of the equation for 

PCDK, scale factor B29, units meters, stored in push-down location 12D. 
Equation solved for "k" is: k^ + 2 c, k + r.o^ - = 0. 


+ 2 c^ k 


^ -a3 


^3 


PCDK2: Value corresponding to the other solution of the quadratic equation 
for PCDK, scale factor B29, units meters, stored in push-down location 
lOD (written over with PCDKl if necessary to determine PCDK). 


PD02R: Value of magnitude of passive vehicle position vector used in "CDHMVR" 
to compute DIFFALT, scale factor B29, units meters. Stored in push-down 
location 02D (cell contents replaced by magnitude of use). 


PD18V: Value of passive vehicle velocity vector used in "CDHMVR", scale 

factor B7, units meters/centi-second . It is the velocity vector at the 
point corresponding to PD02R(i.e. radially above /below the active 
vehicle), and is stored in push-down location I 8 D. 

PD28CS: Value of ratio of active to passive vehicle radius magnitudes times 
cos F.T.E V (i.e. times - cos (i - ELEV)), scale factor Bl, stored in 
push-down list location 28D. 


PDALFMPI: Value of guidance equation quantity c< minus JT j scale factor 
BO, units revolutions, stored in push-down list location I 8 D. 
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PDCl: Value of equation quantity "c^" (see PCDKl) for qiiadratic eqiiation 
in "CIRCL", scale factor B29, units meters, stored in push-down 
location 6D. 

PDC2: Value of equation quantity "Cp" (the qiiantity imder the radical for 
the quadratic equation defined in PCDKl definition), scale factor 
B 58 , units meters^; square root stored temporarily in push-dovm list. 

PDDELTM: Value of guidance equation quantity £ t, scale factor B28, 
units centi-seconds, stored in push-down list location 12D. 

PDOMEGA: Value of active vehicle angular velocity information times 
radius magnitude ratio (for convenience in scaling), scale 
factor B37j stored temporarily in push-down list. Push-down ( i6d) 
list subsequently modified to contain PDOMEGA - PDOMEGP, with 
scale factor information in XI also (i.e. scaling B(37 +Xl)). 

PDOMEGP: Value of passive vehicle angular velocity information times 

radius magnitude ratio (for convenience in scaling: the reciprocal 
of the ratio used for PDOMEGA is employed), scale factor B37, 
stored as described under PDOMEGA. 

PDSEMAA: Value of semi -major axis of active vehicle computed in "CDHMVR", 
scale factor B29, units meters, stored in push-down location 4D. 

PDSEMAP: Value of semi -major axis of passive vehicle computed in "CDHMVR", 
scale factor B29, units meters, stored temporarily in push-down 
location 4D (then that location used for PDSEMAA). 

PDSL: Value of "slope" function for "CIRCL" iteration (DELDV for next cycle 
is given by PCDGAMMA / PDSL), scale factor B-6 (for variables already 
normalized), stored in piish-down location 4D. 

PDUB: Value of equation "b" vector, scale factor Bl, stored in push-down 
location OD. It represents the position where the passive vehicle 
"should be based on the active vehicle location", and is used to 
compute PCDGAMMA. 

PDUL: Value of equation "Uj^" vector, scale factor Bl, stored in push-down 
location OD. It gives the "unit vector vdiich passes through the 
active vehicle position and is coincident with the desired TPI line 
of sight" (specified by ELEV). 

PDVAH: Value of "horizontal" component of required active vehicle velocity 
after CDH maneuver, computed in "CDHMVR". Scale factor is B7, units 
meters/centi-second, and stored in push-down location lOD. 

PDVAV: Value of "vertical" (i.e. radial) component of reqiiired active 
vehicle velocity after CDH maneuver, computed in "CDHMVR". Scale 
factor is B7, units meters/centi-second, and stored in push-down 
location 8D. 
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POSTCDH: Value of periapsis altitude after performance of CDH maneuver, 

scale factor B29, units meters. It is computed in "CIRCL" for use at 
end of iteration to check that the 85 nmi/35}000 feet minimiim value 
constraint not violated. It is not computed in P33/P73- 

POSTCSI: Value of periapsis altitude after performance of CSI maneuver, 

scale factor B29, units meters. It is computed in "CSl/Bl" for use at 
end of iteration to check that minim-um value constraint not violated. 

R , : Value of active vehicle position vector, scale factor B29, units 
^^^■^meters, initialized in "ADVANCE" to be equal to the active vehicle 

vector at the specified T. (T . or T „ ), rotated into the plane of 
the passive vehicle . LoaJid n§Er end 8i "P32/P72C" with 
permit use of a common subroutine . 

R Value of active vehicle position vector, scale factor B29, 'units 

meters. Initialized in "ADVANCE" to written over in 

"CIRCL" -with computed CDH state vector. The quantity is used in 
"CDHMVR" as the active vehicle position vector at CDH. 

R Value of active vehicle position vector, scale factor B29, units 

^meters. Computed in "PRECSET" for the input-specified time, and 
used in "ADVANCE" for initializing active vehicle vectors a-t that time . 
Is updated in "CIRCL" to be the active vehicle position vector at TPI 
time : this is also the meaning of the quantity in P34/P74} for example . 
A similar update is done in "P33/P73B" . 

R : Value of R at entrance to ''S33/34-1", used to form a standard 

s.pr’sc SLC 

initial condition for performance of conic integration in "ADTIME+3" 
by the amount of time in NOMTPI (to avoid buildup of error due to 
successive conic computations), scale factor B29, xmits meters. 

Rj_nit‘ position vector at start of burn (or of Lambert evaluation), 

used as a communication cell with "INITVEL", scale factor B29, -units 
meters. "INITVEL" scales to B27 if moon-centered. If iteration is 
required, the time tag for the state vector is in INTIME. 

R assl’ passive vehicle position vector, scale factor B29, units 

meters, initialized in "ADVANCE" to be equal to the passive vehicle 

position vector at the specified T. (T . or T ,, ). 

^ ig ' csi cdh^ 

R ass2' passive vehicle position vector, scale factor B 29 , uinits 

meters, initialized in "ADVANCE" to R - . It is 'written over in 
"CIRCL" -with the computed passive vehiiie^state vector at CDH, and 
it is used in "CDHMVR" as the passive vehicle state vector then. 

R a 3 = Value of passive vehicle position vector, scale factor B29, \mits 

meters. Computed in "PRECSET" for the input -specified time, and used 
in "ADVANCE" for initializing active vehicle vectors at that time. 

Is updated in "P32/P72B" (before entrance to "CSl/A") to be the 
passive vehicle position vector at TPI time; a similar update is 
done in "P33/P73B" after CDH maneuver parameters obtained. 
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R ^ Value of R „ at entrance to "S33/34.1", used to form a 
^prec ^ass3 j 

standard initial condition for perfomance of conic integration 


in "ADTIME+3", scale factor B29, units meters (see R 


apre c 


^ : Communication cell with "INITVEL" containing position of target 

vector (or vehicle) DELLT4 centi-seconds after the time in INTIME, 
scale factor B29, units meters. Loaded with updated target vector 
position (if a change made) before exit from routine. 


^ , : Value of ^ 

— targl -^ar£ 

(after rescaling, 


used within "INITVEL" package, scale factor 
B29(earth) or B27(moon), units meters. B29 when ex±t. 


Rl: See Conic Routines. 


RIVEC, R2VEC: See Conic Routines. 
RCV: See Orbital Integration. 


RdA : See Conic Routines . 

RDOTV: Value of Rg^Q^3_ • 1^014 ^ "CSI/BI", scale factor B36, units 

meters^/ centi-second . 

RLS: See Coordinate Transformations. 

RTMU, RTSRldMU: See Burn Control. 

RTXl, RTX2: See Orbital Integration (cells loaded at start of most 

P3i/P7i programs with index information for XI and X2 respectively, 
selecting earth if -2 and 0; moon if -10 and 2) . 

RVEC: See Conic Routines. 

SECMAX: Value of maximum time increment used in iteration for TPI 
time, scale factor B2B, units centi-seconds. Initialized to 
■'maxaSO in "333/34.1". 

SNTH: See Conic Routines. 

SUBEXIT. Single precision cell used to retain return address information 
from "S34/35.2". 

T: See Conic Routines. 


Tcdh’ of ignition time for CDH maneuver, 

centi-seconds. It is derived in "CIRCL", 


scale factor B2B, units 
and displayed by NI3. 


T . 

csi 


Value of ignition time for CSI maneuver, 
centi-seconds, loaded via Nil at start of 


csi2 


in "P82' 


scale factor B2B, units 
P31/P32/P72. Loaded with 


'^csi2’ ignition time for subsequent CSI maneuver computed in "CIRCL", 

scale factor B28, units centi-seconds, loaded into T . in "P82" 

CSI 

'^dec2' ^®^^® which integration is to be performed by "PRECSET", 

scale factor B28, units centi-seconds. Used to achieve the same 
'^decl ®®^^4ng for the CSM integration as for the LM integration. 
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Tgt* See Orbital Integration. 


T , : See Burn Control. 
pass 4 


T Value of Transfer Phase Initiation (TPI) time, scale factor B28, 
units centi-seconds . Can be input to P34/P74 from e.g. P33/P73 
derived value, although it can also be computed in P 34 /P 74 to give 
a specified elevation angle value. If it is to be derived, the 
iteration starts in P 34 /P 74 vd.th the specified 


T1T0T2: Value of time interval for P32/P72 between T . and computed 

at the end of "CIRCL", scale factor B2B, units centi-seconds. To 
permit display in R 2 of N75, made modulo one hour in "P32/P72C" . In 
P33/P73, it is the time interval between T and T^ . (computed in 
"P 33 /P 73 B", and made modulo one hour only if positive!. 


for P 32 /P 72 , scale 
of N75. It is 

ueriveo. in "oiaoii uuo nja.u,ci-i o-n , ....^^re made modulo 

one hour. In P33/P73> it is the value of “ "^tniD^ ’ change 

in TPI time between P32/P72 and P33/P73, compSted int^’T33/P73B" , 
where it is also made modulo one hour. 


T2T0T3: Value of time interval between and 

factor B28, imits centi-seconds, displayed in^R3 

nn-r-nriTll 




TDESIRED: See Conic Routines. 


TITER: Single precision cell used in "S33/34.1" to protect against 

excessive iterations. Initialized to a negative number, and then 
reset in "ELCALC" (where used as flag for first pass) to 37777^. 
Subsequently shifted right 1 place if DELEL not less than ° 
Keeps = right shift will make the single precision value 

zero (double precision one non-zero, serving as error flag), causing 
an error exit. 

ULOS: Value of rnilt vector, scale factor Bl, in line-of -sight direction 
(direction of - £^^^ 3 ). 

UN: See Conic Routines. Computed in "INITVEL" as perpendicular to plane 

defined by R. and V. , but is written over in Lambert routine 
— init -init ’ 

(in subroutine "GEOM") if the NORMSW (bit 10 of FLAGWRD7) is 0 
(meaning that transfer not too close to 180 degrees as defined by 
C0ZY4 information) . 

UNRM: Value of unit vector, scale factor Bl, perpendicular to R^p ^3 and 

V (i.e. in R V direction). 

-act3 “ “ 


UNVEC: Unit vector formed from 
Bl. 


-act 2 


at 


the start of 


"CDHMVR", 


scale factor 


UP: Unit vector, scale factor Bl, giving direction of "local horizontal 
plane of active vehicle at T, . " for use in computing ELEV in 
"ELCALC", stored in push-down^iist location OD. 


UPl: Unit vector, scale factor Bl, computed in "PRECSET" in direction of 
r * V (the passive vehicle position and velocity vectors at the 

— p . N 

specified ignition time;. 
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-actl" active vehicle velocity vector, scale factor B7, units 

meters/centi-second, initialized in "ADVANCE" to be equal to the 
active vehicle vector at the specified T. (T , or T rotated into 

the plane of the passive vehicle. 

-act2' active vehicle velocity vector, scale factor B?, units 

meters/centi-second. Initialized in "ADVANCE" to V , , , and written 
over in "CIRCL" with computed CDH state vector. The^^uantity is used in 
"CDHMVR" as active vehicle velocity vector at CDH. 

~act3 ■ active vehicle velocity vector, scale factor B7, imits 

^meters/centi-second. Computed in "PRECSET" for the input-specified 
time, and used in "ADVANCE" for initializing active vehicle vectors 
at that time . It is loaded at the end of "CDHMVR" with the required 
velocity after the CDH maneuver, and this value in "CIRCL" in turn is 
written over with the active vehicle velocity at TPI (which is also 
the meaning of the quantity in P34/P74). A similar writeover is done 
in "P33/P73B". 

-act4' active vehicle velocity vector, scale factor B7, units 

meters/centi-second, after performance of CSI maneuver (computed in 
"CSI/BI"). 

-aprec’ Iact3 entrance to "S33/34.1", scale factor B7, units 

meters/centi-s6cond (see R ). 

“aprec 

■^it’ ^®^^® velocity vector at start of biim (or of Lambert evaluation), 
used as a communication cell with "INITVEL", scale factor B7, units 
i^ters/centi-second. "INITVEL" scales to B5 if moon-centered. If 
iteration is required, the time tag for the state vector is in INTIME. 

rime* required velocity computed by Lambert routine (i.e. 

P WEC value when return from routine) at the time INTIME. Scale 
factor B7 (earth) or B5 (moon), units meters/centi-second. Rescaled 
if moon-centered to B7 before exiting from "INITVEL7". 


^assl* passive vehicle velocity vector, scale factor B7, units 

^ meters/centi-second (see R ., ) . 

pas s JL 

^ass2' passive vehicle velocity vector, scale factor B7, units 

^ meters/centi-second (see^^gg 2 ). 

V q : Value of passive vehicle velocity vector at the start of the 
^ ^burn of interest (e.g. TPI burn), scale factor B7, units meters/ 

centi-second (loaded in several cases in "PRECSET"). See Bpg^gg^* 

V , : Value of passive vehicle velocity vector at intercept (T ) 

^ ^time, scale factor B7, units meters/centi-second. pass4 

Vpprec" 0^" ^ass3 entrance to "333/34.1", used to form a standard 

initial condition for performance of conic integration in 

"ADTIME+3", scale factor B7, units meters/centi-second (see R ). 

' -aprec ^ 
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V, , : Value of active vehicle velocity at intercept (after doing the 
arge ^ scale factor B7(earth) or B5(nioon), units meters/centi- 

second. If VTARGTAG is non-zero, value computed by precision 
integration in "INITVEL2"; if VTARGTAG is 0, value computed by 
"INITV" at the end of Lambert iteration. 

V, . : Value of V, . when return from "INITVEL" routine, scale 

-tprime —target ; 

factor B7, units meters/centi-second (rescaled from B5 if moon- 
centered in "INITVEL7"). 

VCV: See Orbital Integration. 

VTARGTAG: Single precision cell, scale factor BI 4 , used to store the 
required number of Lambert iterations. Information originally 
set in push-down list location OD (called TS, in programmed 
equations) , with a value of zero meaning that no iterations are 
required (hence Y. , computed by "INITV" and target vector 
information, barring^?he effects of C0ZY4, remains unchanged). 

WEC: See Conic Routines. 

XXXALT: See Burn Control. 
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Return to Earth Computations 


Make restart group 4 inactive (P37 is not restart protected) 
ECSTEER =0.5 
VFRED = 0 


GAMMEI = 0 
TS = 0633 

vn 


Proceed to "GOFIASH" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 

otherwise, proceed to previous line 


TS = 0660 

vn 

Perform "GOFIASHR" : if terminate, proceed to "GOTOPOOH" 

if proceed, skip next two lines 
otherwise, proceed to previous line 

TS = OOI2 and perform "BLANKET" (RIBLNK) 

End of job 

RTEDVD = VPRED (overflow indicator reset here) 
RTEGAM2D = GAMMAEI 
CONICXl = 2 


MAMAXl = K 


c4rte 


T = T 
decl ig 

Perform "CSMPREC" 


%1 -att 
^1 = ^att 


1 att 
If X2 ^ 0: 

TS = 0612, 


8 


(i.e. in lunar sphere) 


Perform "VARALARM" 


TS = 0509 

vn 

Proceed to "GOFIASH": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed to previous line 
otheirwise, proceed 

Proceed to "P37" 


RTER-1 


CFPA = unitv, T • unit^. 

If ICFPAl- >,0: 

TS = unitZ 

If (CPPAI - < 0: 

TS = unit^, * uni tv. T 
— -HI 

Set bit 14(RETR0 FIjG) of FLAGWRD5 - 0 

If TS < 0: 
z 

TS = - TS 

Set bit 14(RETR0FIG) of FUGWRD5 - 1 
UH = unit(TS * unitR.,) 

Set bit 13(SL0WFIG) of FIAGWRD5 = 0 
If RTEDVD < 0: 

RTEDVD - I RTEDVD 1 

« Kll - ^irte > 

Set bit 13(SL0WFLG) of FLAGWHD5 - 1 

J +K^tc2lM^ 

NNU = -9 


RCON = K 


k2rte 


If RTEGAM2D ^ 0: 

X0FT2 = (cos (i - RTBGAM2D)) / (sin (i - RTEGAM2D)) (i = 90°) 
If RTEGAM2D = 0: 


IStll- 'Sarte < 

X0FT2 = K, 


If 


K, 


I ^l| “klrte 

X0FT2 = K. 


k3rte 

0 : 


k4rte 


Proceed to "RTE 36 O' 


RTE360 

Perform "V2T100" 

If TS 0: 

Perform "VARALAPM" (TS already set to alarm pattern) 


TS = 0509 

vn 


RTER-2 


(If TS ^ 0) : 


Proceed to "GOFIASH": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed to previous line 
othervd.se, proceed 

Proceed to "P37" 

RVEC ” R 1 
— —fcl 

RDESIRED = RCON 


WEC = 

Perform "TMEIADIOO" 


T = T + T 
2 1 12 

If RTEGAM2D ^ 0: 

TS = X0FT2 
If RTEGAM2D = 0: 

TS = w + ■'rtdal^tal 

TS ■= TS + 

X0FT2ERR = TS - X0FT2 


+ K 


rtd3|^2 


+ K 


■rtd4 


N' 


ALPHAV = unit^2 
Perform "GETERAD" 

RCONPR = ERADM + 

If fRCONPR - RCON I 

If (X0FT2ERR| - < 0: 

Proceed to "P37E" 

TS =NN1A + 1 (Tag here is "RTE375") 

If TS J^O: 

TS = 0605g 
Perform "VARALARM" 

TS = 0509 

vn 

Proceed to "GOFIASH": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed to previous line 
othervd.se, proceed 


Proceed to "P37" 
NN1A = TS 


RTER-3 


If NNlA = -8: (i.e. first pass) 

TS = X0FT2ERR 
If NNlAf^-8: 

^ TOFT2FRR /' X0FT2FR - X0FT2 ^ 

1^5 Auri^jmti yxOFT2ERR - X0FT2ERP/ 

RCON = RCONPR 

If overflow has taken place, proceed to "RTE360" (indicator reset) 

X0FT2ERP = X0FT2ERR 

X0FT2PR = X0FT2 

X0FT2 = X0FT2 + TS 

Proceed to "RTE 36 O" 

P37E 

Perform "RTEFN" 

If RCON - PCON BETA1> 0: 

PHI2 = I 

If RCON - PCON BETAI 4 : 0: 

PHI2 = -1 
Perform "PRECIOO" 

If TS ^ 0: 

Perform "VARALAE?M" (TS already set to alarm pattern) 

TS = 0509 

vn 

Proceed to "GOFLASH" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed to previous line 
otherwise, proceed 

Proceed to "P37" 

Perform "RTEVN" 

OPTIONl = 7 
0PTI0N2 = 1 


RTER-4 


TS = 0406, 


vn 


Proceed to "GOFIASH": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 

othervd.se, proceed to previous line 


If 0PTI0N2 = 2: 


(RCS specified) 


TSt = 2 K 
1 mdtrc 

If bit 15(2JETSFLG) of FIAGWRDl = 0: 

TS^ = 2 TS^ 

TS = DV / K 

' vcrcs 

If 0PTI0N2 ^ 2: (SPS specified) 


TS, = C , . 

1 emdot 

TS = W / K 

' vcsps 

TS„ = K „„ „ + K , TS + K „ TS^ 
2 p37eO p37el p37e2 


T. = T, - K , , TS„ MASS / TS, (correct single precision 

ig 1 csubt 2 '1 'mass used here) 

TS = 0633 

vn 

Proceed to "GOFIASH": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 

othervri.se, proceed to previous line 

VHFCNT = 0 
TRKMKCNT = 0 
Perform "INTSTALL" 

RCV = 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 
VCV = 

^et = '^1 

T = T 
decl 2 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 
Perfom "INTEGRVS" 


%2 ^tt 

“ -att 

XI = - CONICXl 


RTER-5 


h2 “ Ktt 

(»mcs7p5 ' “"“Sta) + K^cs22p5 < 

Proceed to "P37W" 


TS 

If 


" ^thl65 
UH . R^2<0: 


TS = K 


th210 


SNTH = sin TS 
CSTH = cos TS 


Set bit 9 (RVSW) of FIAGWRD? = 0 (means new R, V desired) 
RVEC = R^- 
WEC = 

Perform "TIMETKET" (writes over previous TS^) 

Proceed to "P37W" 


RTEW 


WSTORE = Return address 


VPRED=|I^2| 

T3T0T4 = T„ - T. 

GAEMEI = i - cos ^ (unit ^2 * 


TS = - 1^, 

DELVLVC = (TS • UH, 


If bit 14(RETR0FLG) 


0, - TS • unit^^) 
of FLAGWRD5 = 1: 


DELVLVC = - DELVLVC 

X X 

VGDISP = )DELVLVC| 

RVEC = 

- -t2 

RDESIRED - |rVEC| - K204rt 

WEC = 

~ "^2 

Perform "TMRADIOO" 


a - 90°) 


(bit set in "P37") 


GAMTERM = \ sin ^ (unitVj^^ * | 

RTER-6 


Perform "AUGEKUGL" 


TS = 
If C 


T 4. 

ent 


+ T12 + T 


p37range 


^ 0 : 


2 


PHIE = C 


p37range 


LNGSPL = sin PHIE 


Note that this does not affect T , 

ent 

(used as temporary storage) 


LA.TSPL = cos PHIE (used as temporary storage) 

ALPHAV = unit^unit^2 iJ^^^SPL + xinitfi 

Set bit I3(ERADC0MP) of FIAGWRDI == 0 

Set bit I2(LUNLATL0) of FLAGWRD3 = 0 


Perform "LAT-IDNG" (time argument is TS above) 

LATSPL = LAT 


LNGSPL = LONG 
TS = 0661 

vn 

Perform "GOFLASHR" : if terminate, proceed to "GOTOPOOH" 

if proceed, skip next 2 lines 
otherwise, proceed to "P37" 

TS = IOO 2 and perform "BLANKET" (R3BLNK) 

End of job 

TS = 0639 

vn 

Proceed to "GOFLASH": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
otherwise, proceed to "P 37 " 

TS = 0660 

vn 

Perform "GOFLASHR": if terminate, proceed to "GOTOPOOH" 

if proceed, skip next 2 lines 
otherwise, proceed to "P 37 " 

TS = 001^ and perform "BLANKET" (RIBLNK) 

End of job 

TS = 0681 

vn 

Proceed to "GOFLASH": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
otherwise, proceed to "P37" 

Proceed to address specified by VNSTORE 


LATSPL 
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TMRADIOO 


Set bit 9(RVSW) of FIAGWRD? = 0 (means new R, V desired) 

SGNRDOT = - 20000g 
XI = - CONICXl 
Perform "TIMERAD" 


^2 


TS 

“V 


R^o = TS 
— 12 -r 

T = T 
12 


Return 

PREClOO 


(This, from 6th line until "PREC175", is Final State 

Vector Computation) 


SPRTEX = Return address 
NN1A = 10 


RD = RCON 
DT21PR = +MAX 
M2 = -15 
Perform "INTSTALL" 


RCV = R. T 

Set bit 4(C0MICINT) of FLAGWRD3 = 0 


vcv = 

"et = \ 

T = T 
^decl 2 

Set bit 12(M00NFLAG) of FIAGWRDO = 0 
Perform "INTEGRVS" 


%2 -att 
XI = - CONICXl 


T = T 
2 att 
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n 



V = V 
\2 -^tt 

Proceed to "PREC125" 


PREC125 


Perform "PARAM" 


PdRPRE = P 
RdAPRE = RdA 


RPRE = R1 

X0FT2PRE = COGA 

TS = I X0FT2 - X0FT2PRE | - 

If no overflow has taken place: 

If TS < 0: 

Proceed to "PREC175" 

If NN2 > 0: 

TS = 0605g 

Proceed to address specified by SPRTEX 
If NN1A = 0: 

BETA4 = RD / RPRE (tag here "PREC162") 

If NNIA^^O: 

TS = 1 - PdRPRE RdAPRE BETAl (scale factor B4) 

If TS <0: 

BETA4 = 1/ RdAPRE 

If TS 0: 

BETA4 = (PdRPRE BETAl) / (l - \/tS^ PHI2) 

BETA12 = 1 - BETA4 


-- J 
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If BETA12 0: 

If X0FT2PRE 0: 

BETA12 = - BETA12 
If |BETA12| - <0: 

Proceed to "PREC175" 

RF = RPRE BETA4 

NN2 = NN2 + 1 (Tag here is "PRECI70") 

RVEC = 

Set bit 9(RVSW) of FLAGWRD7 = I (means new R, V not desired) 

WEC = V^2 BETA12 

SGNRDOT = - 20000g sgn BETAI2 

XI = - CONICXl 

RDESIRED = RF 

Perform "TIMERAD" 

DT21 = T sgn BETA12 

TS = DT2I / DT21PR (scale factor B3) 

If TS ^ 0: 

TS^ = 1.0 (actually +MAS) 

If TS < 0: 

TS^ = - 0.6 

TS 2 = TS / TS^ - 1 (scale factor B3) 

If TS2^0: 

DT21 = DT21PR TS^ 

DT21PR = DT21 
Perform "INTSTALL" 

Set bit 4(C0NICINT) of FLAGWRD3 = 0 
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RCV = R^2 
VCV . 1,2 
^et = ^^2 

T , , = T . + DI21 

decl et 

Set bit 12 (MOONFIAG) of FIAGWRDO 
Perform "INTEGRVS" 


= 0 


^2 -att 
XI = - CONICXl 


^2 ^att 

^2 = ^tt 
Proceed to "PREC125' 


PREC175 

REER = RPEffi - RD 

If IrERRI - K „ < 0: 

epc7 

If |X0FT2 - X0FT2PRE1 - < 0: 

TS = 0 

Proceed to address specified by SPRTEX 
TS = 06l3g 

Proceed to address specified by SPRTEX 
If NN1A = 0: 

TS = 0605g 

Proceed to address specified by SPRTEX 
If MIA = 10: 

RCON = RD^ / RPRE 
DRCON = RCON - RD 


Proceed to "PREC210" 

TS = DRCON / (RPREPR - RPRE) (scale factor B2) 
TS^ = TS + 2 
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If no overflow has taken place: (e.g. TS^ < 4) 


If jlS^l - 2 < 0: 


Skip next line 


TS = - 4 (actually -MAX) 


DRCON = TS RERR 
RCON = RCON + DRCON 
Proceed to "PREC210" 

PREC210 

RPREPR = RPRE 
NN1A=NN1A - 1 
Perform "V2T100" 

If TS = 0, proceed to 4th line of "PREClOO" 

Proceed to address specified by SPRTEX (TS set to alarm pattern) 

V2T100 (This is the CONICRETURN routine) 

PD33 = Retiarn address 
If RCON > 0: 

If RCON - ^ 0: (hence LAMBDA^ l) 

Skip next line 

Proceed to "POODOO" (pattern 20610^.) 

Set bit 5(F2RTE) of FLAGWRDO = 0 
LAMBDA = I / RCON 
BETAl = 1 + X0FT2^ 

BETA5 = BETAl LAMBDA 
THETAl = BETA5 LAMBDA - 1 
THETA2 = 2 j (LAMBDA - l) 


THETA3 - 

TS= beta; I St j 


TS = BETA5 



(overflow reset) 


\MAMAX1 - RCON 

If TS^O: 

TS^ = v/t? 
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If TS < 0: 


TS^ = 0 

XOFTBCm = - TS^ 

DXTIMAX = TS^ / 16 

(wmi2 - 

TS BETA5 - 1, limited < 2 (overflow reset) 

If TS 0: 

TS^ = v/ts' 

If TS < 0: 

TS^ = 0 

XOFTIMAX = TS^ 

If NN1A.< 0: (i.e. not precision phase) 

If RTEDVD =0: 

If CFPA ^ 0: 

Proceed to "V2T145" 

Proceed to "V2T140" 

BETA6 = (2 - LAMBDA) BETA5 - 1 (2 actually is +MAX) 

(Tag here "V2T110") 

XOFTIPRP = XOFTl 
If BETA6<:0: 

If PHI2 ^ 0: 

PHI2 = - PHI2 
MIA = 10 

If XOFTl > 0, proceed to "V2T145" 

Proceed to "V2T140" 

TS = \/BETA6' 
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If PHI2iO: 


XOFTIMAX = TS 
XOFTIMIN = - TS 

If XOFTl> 0, proceed to "V2T145" 
Proceed to "V2T140" 

If X0FT1> 0: 

XOFTIMIN = TS 
Proceed to "V2T145" 

XOFTIMAX = - TS 
Proceed to "V2T140" 

V2T140 

XOFTl = XOFTIMIN 
DXOFTI = DXTIMAX 
Proceed to "V2TI50" 

V2TI45 

XOFTl = XOFTIMAX 
DXOFTI = - DXTiyiAX 
Proceed to "V2TI50" 

V2TI50 

Perform "GAMDVIO" 

If RTEDVD = 0: 

TS = 0 

Proceed to address specified by PD33 
If RTEDVD - DV ^ 0, proceed to "V2Ti75" 
If NNIA^ 0, proceed to "V2TIS5" (i.e 


precision phase) 
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If X0FT1> 0: 

TS = 0 

Proceed to address specified by PD33 
If CFPA ^0: 

TS = 0 

Proceed to address specified by PD33 
XOFTl = XOFTIMAX 
DXOFTl = - DXTIMAX 
Perform "GAMDVIO" 

If RTEDVD-DV<0: 

TS = 0 

Proceed to address specified by PD33 
Proceed to "V2T175" 

V2T175 

Set bit 5(F2RTE) of FLAGWRDO = 1 

If bit 13(SL0WFLG) of FLAGWRD5 = 0: (bit set in "P37") 

XOFTIMAX = XOFTl 
DXOFTl = - DXTIMAX 
If bit 13(SL0WFLG) of FLAGWRD5 = 1: 

XOFTIMIN = XOFTl 
DXOFTl - DXTIMAX 
Perform "GAMDVIO" 

If NN1A<,0: (i.e. not precision phase) 

TS = 0 

Proceed to address specified by PD33 
Proceed to "V2T1S5" 

V2T185 

If I XOFTl - X0FT1PRP| - 2 DXTIMAX < 0: 

TS = 0 

Proceed to address specified by PD33 
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XOFTl = XOFTIPRP 


If XOFTl - XOFTmX ^0: 

XOFTl = XOFTIMAX 
Perform "DVCALC" 

TS = 0 

Proceed to address specified by PD33 
If XOFTl - XOFTIMIN < 0: 

XOFTl = XOFTIMIN 
Perform "DVCALC" 

TS = 0 

Proceed to address specified by PD33 

GAMDVIO (This is XVITERATION routine) 

Perform "DVCALC" 

TS = XOFTIMAX - XOFTIMIN 

If no overflow has taken place: 

If TS - K o Retiirn 

epc9 

If TS - DXTIMAX < 0: 

DXOFTl = ^ TS sgn DXOFTl 
NN2 = - 144 
Proceed to "GAMDV25" 

GAMDV25 

TS = NN2 + 1 
If TS^O: 

TS = 0605q 

Proceed to address specified by PD33 
NN2 = TS 
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XOFTIPR = XOFTl 


DVPR = m 

XOFTl = XOFTl + DXOFTl 
Perform "DVCALC" 

If bit 5(F2RTE) of FIAGWRDO = 1 , proceed to "GAMDV35" 
If DV - DVFR ^ 0: 

DXOFTl = - i DXOFTl 
Proceed to "GAMDV50" 

GAMDV35 

TS = RTEDVD - DV 

If |ts| - Kgpg 3 _o< Return 
Reset overflow indicator 

TS^ = TS / (DV - DVPR) 

DXOFTl = (XOFTl - XOFTIPR) TS^ 

If overflow has taken place since indicator reset; 
DXOFTl = DXTIMAX sgn DXOFTl 
Proceed to "GAMDV50" 

If |dX0FT1| - DXTIMAX; O: 

DXOFTl = DXTIMAX sgn DXOFTl 
Proceed to "GAMDV 50 " 

GAMDV50 

BETA9 = XOFTl + 1.1 DXOFTl 
If BETA 9 - XOFTIMX ^ 0: 

DXOFTl - i (XOFTIMAX - XOFTl) 

Proceed to "GAMDV 65 " 

If BETA 9 - XOFTIMIN < 0: 

DXOFTl = ^ (XOFTIMIN - XOFTl) 

Proceed to "GAMDV 65 " 
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GAMDV65 


If \DXOFTli - < 0, Return 

Proceed to "GAM)V25" 

DVCALC 

TS = THETAl - XOFTl^ (subtraction done triple precision) 

PCON = THETA2 / TS 

TS^ = THETA3 >(PC0N' (in 28D) 

-2tl ^ unit^^ + TS^ UH 

™ = - All 

Return 


P37W 


Set bit S (XDELVFLG) of FLAGWRD2 = 0 
Set bit 10 (NORMSW) of FLAGWRD? = 0 
Set bit 6 (FINALFLG) of FLAGWRD2 = 1 


L. = TS 

-^arg -1 


T , = T + 
pass 4 1 

DELVEETl = 

Perform "VN1645" 

Proceed to previous line (if return due to V32E to F VI 6 N 45 ) 
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Quantities in Computations 

See also list of major variables and list of routines 


ALPHAV: See Coordinate Transformations. 

BETAl: Intermediate quantity computed near start of "V2T100", scale factor 
Bl, equal to (l + X0FT22), i.e. reciprocal of square of sine of 
post-return flight path angle. 

BETA/*.: Intermediate quantity computed in "PREC125", stored in push-dovm 
list, scale factor Bl. 

BETA5: Intermediate quantity computed near start of "V2T1C)0", scale 
factor variable (l + LAMBDA scale factor), stored in push-down 
list location 28D. Complement of LAMBDA scale factor is (XI -l) « 

BETA 6 : Intermediate quantity computed in "V2T100", scale factor B17, 

stored in push-down list location 16D (as a triple precision quantity) . 

BETA9: Intermediate quantity computed in "GAMDV 50 ", scale factor B 5 , 
stored in push-down list location 21 ^. 

BETA 12 : Intermediate quantity computed in "PREC125", scale factor Bl. 
Quantity in program is the complement of that in the equation 
documentation, so that its sign can also be used to reflect the 
equation function performed by 0 , , the "precision trajectory 
direction switch." ^ 

C , : See Steering Computations . 

emdot 

Co?: Single precision erasable memory constant, program notation 

P 6 iip37RANGE", scale factor BO, units revolutions: miiltiply by 2l600 
to convert to nautical mile scale compatible with constants used in 
"AUGEKUGL" . If non-zero, writes over PHIE in "RTEVN" . 

Crtedl’ ®^^sable memory (double precision) constant, program notation 
"RTEDl", scale factor B3, giving the bias term value used in 
"RTE 36 O" to compute desired "final cotangent of the flight path 
angle" (other terms use in fixed memory). 

CFPA: Cosine of initial flight path angle (before application of any 
thrust), scale factor Bl, computed near start of "P37". 

CCGA: See Conic Routines. 

CONICXl: Single precision cell, scale factor BI 4 , initialized to a 

value of 2 near start of "P 37 " and used to set index register XI 
for proper interface with conic routines. XI is set to - CONICXl, 
which is, of course, -2 (signifying to conic routines that selection 
of earth as central body is required) . 

CSTH: See Conic Routines. 

DELVEET2,: See Rendezvous Computations (used in "VN1645" for velocity 
increment information) . Program notation also "DELVSIN" . 

DELVLVC: See Bum Control. 
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DRCON: "Change in the final radius of a conic trajectory," scale factor 
B29, units meters, used in iterator computation to obtain a new 
value for RCON . 

DT21: Value of "adjustment" to T in "PREC125" to obtained desired final 
radius, scale factor B2S, units centi-seconds, stored in push- 
down list location OD. 

DT21PR: Value of previous DT21, same scaling, initialized to +MAX, i.e. 
(2^° - l) centi-seconds, near start of "PREClOO". 

DV : Magnitude of required velocity change at ignition time computed in 
"DVCALC", scale factor B7, units meters/centi-second. 

DVPR: Value of previous DV loaded in "GAMDV25", same scaling, stored in 
push-down list location 20D. 

DXOFTl: Value of change in XOFTl, scale factor B5, initialized in 

"V2T140" or "V 2 TI 4 . 5 " and updated in "V2T150" . Stored in push-down 
list location 16 D. Updating actually in "GAMDV35" computation 
entered from "V2T150". 

DXTIMAX: Value of maximum allowed change in DXOFTl, scale factor B5, 
stored in push-down list location 12D. 

ECSTEER: See Bum Control. 

ERADM: See Coordinate Transf ormiations . 

GAMMAEI: Flight path angle loaded and displayed in R3 of noun 60 , scale 
factor BO, units revolutions. Used initially at start of "P37" 
to specify desired flight path angle (loaded into RTEGAM2D), and 
subsequently loaded in "RTEVN" with derived value of the angle 
for display purposes . See also Display Computations . 

GAMTERM: See Display Computations. 

: Constant, program notation " 3 O 4 SORTE", scale factor B29, units 
^ meters. Value is 3 O 4 SO x , corresponding to 304^0 meters or 
100,000 feet. 


K , : Constant, program notation "C4RTE", scale factor B 30 , value 

^ ® - 6 . 986643 E 7 X 2~^^, corresponding to - 6 . 986643 E 7 meters. Used 
near start of "P37" to initialize MA.MAX1. 


K , , : Constant, 
csubt ’ 


program notation "CSUBT", 


scale factor BO, value 0.5. 


K o X : Constant, program notation "E3RTE", scale factor B29, units 
®meters. Value is 121920 x 2“^^, corresponding to 121920 meters 
or 400,000 feet. 


K T : Constant, 

®P'=^0.99966 X 2- 


program notation "EPCIRTE", scale factor Bl, 


1 Vnl- 


Value corresponds to cosine 1.5 


value 


K 2’ Constant, program notation "EPC2RTE", scale factor B29, units 
meters. Value is 100 x 2~^^ , corresponding to 100 meters. 
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K Constant, program notation "EPC 3 RTE", scale 

®P°^0.001. 

K . : Constant, program notation "EPCi+RTE", scale 

0.00001. 

K /: Constant, program notation "EPC6RTE", scale 
epco^E_5 X 2"^, corresponding to 7E-6. 

^epc 7 ' ‘^°^stant. program notation "EPC 7 RTE", scale 
^ '1000 X 2“^°, corresponding to 1000 meters. 


K 


rti Constant, program notation "EPCSRTE", scale 

0 . 002 . 


factor BO, value 
factor BO, value 
factor Bl, value 
factor B 29 , value 
factor BO, value 


^enc 9 ’ program notation "EPC 9 RTE", scale factor B 5 , value 

^ ^1 X 2 ^5, Corresponds to a "true value" of (about 0.953674E-6) . 

Ke 10' Constant, program notation "EPCIORTE", scale factor B 7 , units 
^ meters/centi-second. Value is 0.0001 x 2 “', corresponding to 
0.01 meter/second. 


Kkirte' Constant, program notation "KIRTE", scale factor B 29 , units 
meters. Value is 7 E 6 x , corresponding to 7 E 6 meters. 

^k 2 rte’ Constant, program notation "K 2 RTE", scale factor B 29 , units 
meters. Value is 6 , 495,000 x 2 ~^'^ , corresponding to 6 . 495 E 6 
meters, used in "P 37 " to initialize RCON. Value is 25 & meters 
less than 400,000 feet above standard pad radius (of 6,373,338 
meters) . 


Constant, program notation "K 3 RTE", scale factor BO, value 
-0. 06105, corresponding to sin (-3.5°). 

Kki , : Constant, program notation "K 4 RTE", scale factor BO, value 
-0. 10453, corresponding to sin (- 6 . 0 °). 

^Tnr>c,7r,i^ ' Constant, program notation "MCOS 7 . 5 ", scale factor BO, value 
P -O.991444S6, corresponding to - cos 7 . 5 °. 

Constant, program notation "MC 0 S 22 . 5 ", scale factor B 2 , value 
^-0.92387953 X 2 corresponding to - cos 22 . 5 °. 

Kmdtrc* Constant, program notation "MDOTRCS", scale factor B 3 , units 

kilo grams/ cent i-second, giving mass flow rate for single jet RCS 
(doubled for 2 jets, doubled again for 4 jets). Value is 0.0016375 x 

2 - 3 , corresponding to 0.16375 kg/sec or about O.36I pound/sec: this 
gives, multiplying by 276 (see K ^„„), thrust of about 99.6 lbs. 

^msn7D5' ^°’^stant, program notation "MSIN 7 . 5 ", scale factor BO, value 
-0.13052619, corresponding to - sin 7.5°. 


RTER -21 


K . (i = 0-2): Coefficients of power series expansion used in "P37E" 
P3 rei approximate (l - e“^) . Coefficients imbedded in coding (due 
to calling sequence of polynomial routine), with first one at 
"P37T +5"- Values are: 


i 

Scale Factor 

Value Loaded 

0 

B3 

5 . 66240507 E -4 X 2“3 

1 

B1 

9 . 79487897 E-I X 2"^ 

2 

B-1 

-0.388281955 x 2^ 


K , . (i = 0-3): Coefficients of power series expansion used in "P37" 

^ to compute reqiiired value of MAMAX2. Coefficients imbedded in 
coding (due to calling sequence of polynomial routine), with first 
one at "RTE320 -14" • Values are: 


i Scale Factor 

0 B31 

1 B2 

2 B -27 

3 B -56 


Value Loaded 


Binary Equivalent 


K 


rtdi 


181,000,434 X 2-31 181,000,432 

1.50785145 X 2"2 1.5078514516 

-6.49993O57E-9 X 2 ^'^ -6.49993O566OE-9 
9 . 76938926 E-I 8 X 2^6 9 . 7693892759 E-I 8 

(i = 1-4) : Coefficients of power series expansion used in "RTE 36 O' 
to compute X0FT2ERR if RTEGAM2D = 0. Coefficients imbedded in 


one at 
second 

"RTE 369 +5'*. 
in program) : 

Values are (note velocity in 

meters/centi- 

i Scale Factor 

Value Loaded 


1 

B3 

0 (C , jT is used for 

^ rtedl 

"bias" value) 

2 

B-4 

- 4 . 876 O 77 IE -2 X 2^ 


3 

B-11 

4 . 5419476 E -4 X 2^^ 


4 

B-18 

1 

-I. 4317675 E -6 X 2 



K 


: Constant, 

199650.501 X 2 ' 


rtmurt-.XX*;:-;;.’ 


notation "RTMURTE", scale factor B18, value 
Corresponds to the square root of about 


3 . 9860322 5 EIO, roughly the earth fx. in units of meters3/centi-sec'^. 

K,, Constant, program notation "THETAI 65 ", scale factor BO, \jnits 
^revolutions. Value is 0.458333333? corresponding to 165 °. 

^+hOin’ Constant, program notation "THETA210", scale factor BO, units 
revolutions. Value is 0.583333333, corresponding to 210°. 

^vcrcs’ Constant, program notation "VCRCS", scale factor B5, units 

meters/centi-second, giving exhaust velocity for RCS. Value is 
27.0664 X 2~^ , corresponding to 2706 . 64 meters/second (an I , 
dividing by 9 . 8 O 665 , of 276 . 0 seconds). 
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n 


j 


K : Constant, program notation "VCSPS", scale factor B5, units 
^^^^^meters/centi-second, giving exhaust velocity for SPS. Value is 
31.510396 X 2~^, corresponding to an exhaust velocity of 3151.0396 
meters/second. See K in Steering Computations. 


LAMBDA: Ratio of 
(1 - XI), st 


M RCON computed in ’'V2T100", scale factor given by 
r 


in push-dovm list location OD. 


LAT, LONG: See Coordinate Transformations. 

LATSPL: Value of predicted latitude of target computed in "RTEVN", scale 
factor BO, units revolutions. Also used in same routine for 
temporary storage of cos PHIE, scale factor Bl. 

LNGSPL: Value of predicted longitude of target computed in "RTEVN", scale 
factor BO, units revolutions. Also used in same routine for 
temporary storage of sin PHIE, scale factor Bl. 


MAMAXl: Value of "maximum allowable major axis of return trajectories 
with a negative radial component", scale factor B30, units meters. 
Initialized to near start of "P37" . 

MAMAX2: Value of "maximum allowable major axis of return trajectories 
with a positive radial component", scale factor B30, units meters. 
Computed as a polynomial function of (StJta "P37". 

MASS: See Digital Autopilot Interface Routines. 

NNIA: Counter used to protect against excessive iterations in the computations, 
and also for computation control purposes. It is initialized to -9 
in "P37" and incremented by 1 in "RTE36O" : when the increment causes 
the cell to be 0 (or positive), then alarm 0605g is generated. The 
negative sign is used as a flag that the conic portion of the computation 
is being executed. After completion of the conic displays, NNIA is 
set to +10 in "PREClOO" and decremented by 1 in "PREC210". Scale 
factor of counter is B28. 


NN2: Counter used to protect against excessive iterations in computations 
on loops internal to those protected by NNIA, scale factor B28. It 
is initialized to -144 in "GAMDVIO" and incremented (with checks for 
reaching a 0 value) in "GAMDV25". It is also used in "PREClOO", 
where initialized to -15 and subsequently incremented in "FREC125" 
to monitor for iterations to compute flight path angle. 

OPTIONl, 0PTI0N2: See Display Interface Routines. 

P: See Conic Routines. 


PCON: Value of "semi-latus rectum of a conic trajectory" computed in 
"DVCALC", scale factor B28, units meters. 

PD33: Single precision exit address from "V2T100", corresponding to 
push-down list location 33D. 

PdRPRE: Value of P (ratio of semi-latus rectum to magnitude of Hi.p) loaded 
in "PRECI25", scale factor B4, stored in push-down list loc^ion 26D. 
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PHI2: Indicator set to +1 to indicate a solution near apogee and to -1 
to indicate a solution near perigee. Cell set near start of 
"P37E") with scale factor B2. 

PHIE: See Display Computations. 

Value of position vector at time "1" (i.e. time of ignition), scale 
factor B29, units meters. Loaded in "P37", with program notation 
"R(T1)/". 

R^2' Value of position vector at time "2" (i.e. at final position for 

entry), scale factor B29, units meters. Program notation "R(T2)/". 


^ : 
-^arg 


See Rendezvous Computations. 


Rl: See Conic Routines. 


RCON: Value of conic radius magnitiade, scale factor B29, units meters. 

Initialized to Kj^2rte ^ "P37", and updated in "PREC175" and "RTE36O". 

RCONPR: Value of radius magnitude computed in "RTE36O" as K _ , above 
Fischer ellipse value, scale factor B29, units meters. ®^§tored in 
push-down list address 2D. 

RCV: See Orbital Integration. 

RD: Value of magnitude of final position vector desired, scale factor 

B29, units meters. Initialized in the beginning of "PREClOO" to the 
final value of RCON resulting from the conic portion of the computation. 

RdA: See Conic Routines. 

RdAPRE: Value of RdA (ratio of magnitude of to semi-major axis) 
loaded in "PREC125", scale factor B6, stored in push-down list 
location 2SD . 

RDESIRED: See Conic Routines. 

RERR: Error in magnitude of position vector computed at the start of 
"PREC175'S scale factor B29, units meters, stored in push-down 
list. 


RF: Value of "final radius" magnitude computed in "PREC125", scale 
factor B29, units meters, stored in push-down list. 

RPRE: Value of Rl (magnitude of ^2) loaded at the start of "PREC125", 
scale factor B29, units meters. Stored in push-down list location 
24D. 


RPREPR: Value of previous RPRE, loaded in "PREC210", scale factor B29, 
units meters. Program notation "RFRE,". 
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RTEDVD: Value of desired velocity change loaded at the beginning of 
"P37" with the information loaded into R2 of N60, scale factor 
B7, units meters/centi-second. If a value of 0 is loaded, this 
means that a "minimum fuel" return computation is desired. Is R2 of N56. 

RTEGAM2D: Value of desired flight path angle loaded at the beginning 
of ''P37" with the information loaded into R3 of N60, scale 
factor BO, imits revolutions. If a value of 0 is loaded, a 
polynomial is used in "RTE36O" to compute desired X0FT2 data 
"to hit center of entry corridor" (polynomial is a function of 
magnitude). It can be accessed by R1 of N56. 

RVEC : See Conic Routines . 

SGNRDOT: See Conic Routines. 

SNTH: See Conic Routines. 

SPRTEX: Single precision cell containing return address from "PREClOO" . 

T: See Conic Routines. 


T^: Value of time tag associated with and loaded in "P37", scale 
factor B28, units centi-seconds . 

T^: Value of time tag associated with ^2’ factor B28, 

units centi-seconds. Also used f^ the d^ired time tag. 

'^12' transfer time computed by "TMRADIOO" (i.e. T from "TIMERAD"), 

scale factor B28, units centi-seconds. 


T , : 
ent 


See Display Computations. 



See Orbital Integration. 


T , : See Burn Control. 
pass4 

T3TOT4: Transfer time displayed by N39, scale factor B2B, units centi- 
seconds, giving time from ignition to arrival at entry interface. 


THETAl: Intermediate quantity computed in "V2T100" and used in "DVCALC", 
scale factor BI7, stored triple precision in push-down list 
location 2D. 

THETA2: Intermediate quantity computed in "V2T100" and used in "DVCALC", 
scale factor B3S, stored triple precision in push-down list 
location 5D. 


THETA3: Intermediate quantity computed in "V2T100" and -used in "DVCALC", 
scale factor B-4, stored in push-down list location 8D (double 
precision) . 


TRKMCNT: See Measiirement Incorporation (set 0 in "P37E" to pe:^t the 
"VNl645"i’outine to have, with zeroing of VHFCNT, a 0 R3 display). 
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UH: Unit "horizontal" vector computed in "P37", scale factor Bl. 

— 2tl" velocity at T^after addition of impulsive velocity 

increment, scale factor"^?) units meters/centi-second. Loaded 
in "DVCALC" . Program notation "V2(Tl)/" . 

Value of velocity at before addition of impulsive velocity 
increment, scale factor B7, units meters/centi-second. Loaded 
in "P37", with program notation "V(Tl)/", 

V.^: Value of velocity at T^,, scale factor B7, imits meters/centi- 
second. Program notation "V(T2)/". 

VCV: See Orbital Integration. 

VGDISP: See Bum Control. 


VHFCNT: See Measurement Incorporation (and comment above on TRKMKCNT) . 


VNSTORE: 


Single precision cell containing return 


address from "RTEVN" . 


VPRED: Velocity information loaded and displayed 
factor B7, units meters/centi-second. Used 
"P37" to specify desired velocity increment 
subsequently loaded in "RTEVN" with derived 
entry interface altitiode (i.e. magnitude of 


in R2 of noun 60, scale 
Initially at start of 
(see RTEDVD), and 
value of velocity at 
1 ^ 2 ^' Display Comp. 


VTERM: See Display Computations. 


WEC: See Conic Routines. 


XOFTl: "Cotangent of the post-return flight path angle", scale factor 
B5 (i.e. flight path angle after application of impiiLsive 
velocity) . 


XOFTIMAX: Upper bound on the value of XOFTl, scale factor B5, stored in 
push-down list location li+D. 


XOFTIMIN: Lower boimd on the value of XOFTl, scale factor B5, stored in 
push-down list location lOD. 


XOFTIPR: Value of previous XOFTl loaded in "GAMDV25", scale factor B5, 
used in iterator. Stored in push-down list location IBD. 

XOFTIPRP: Value of XOFTl stored in "V2T100" (before entrance to "GAMDVIO" 
iteration), scale factor B5. Stored in push-down list location OD. 

X0FT2: "Final cotangent of the flight path angle", scale factor BO. If 
RTEGAM2D non-zero, initialized in "P37" to cot (^ - RTEGAM2D), 
where " 5 ", of course, since angles in revolutions, corresponds to 
90 °. Program notation "X(T2)". 
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X0FT2ERP: Value of previous X0FT2ERR, scale factor BO, loaded in 
"RTE 36 O". Tag for cell is "DRCON", since same cell used later 
for that piirpose. 

X0FT2ERR: Value of error in flight path angle (0 if RTEGAM2D non-zero), 
scale factor BO (cotangent of the angle is used, i.e, X0FT2 
information). Stored in push-dovm list location OD. 

X0FT2PR: Value of previous X0FT2 loaded in "RTE 36 O", scale factor BO. 
Tag for cell is "RPRE," (i.e. same cell as used subsequently for 
RPREPR) . 

X0FT2PRE: Value of "final cotangent of flight path angle for precision 
trajectory", scale factor BO, set to COGA in "PREC125". 
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steering Computations 


SLO.l Entered from "P4OS/F'' (in P4O/P4I) 

Set bit 7(FIRSTFLG) of FLAGWRD2 = 1 


BDT = 0 


If bit 8(XDELVFLG) of FLAGWRD2 = 0: 

Proceed to "S40.IB" 

DELVSAB = 1dELVSIN| 


V, = V 
-amt —tig 

TS, = unit(V, . R. . ) 
-1 '-tig -tig' 

R . . , = R, . 
mnit -tig 


(stored in UT cell) 


TS 


K 


thetcon 


(]4icr (rounded multiplication, least i 

' ment in result 2^° m/cs) 


incre- 


BURNANG = TS DELVSAB MASS^^ / (CAPF 
TS^ = (DELVSIN • TS^) TS^ 

= DELVSIN - TS2 (in-plane component of specified velocity) 

-gtig "" '^-2 |'^%i TS^) sin BURNANG + unltTS^ cos BURNANg\ 


UT = unitV_^ . 

-gtig 

TS = V ^ . 

~ “gtig 

Perform "GET.LVC" 
Proceed to "S40.2,3" 




S40.1B 

T = T — K 

decl ig twodt 

DELLT4 = T - T 

pass4 decl 

Perform "AGAIN" 

—4 '^^prime (stored in UT cell) 

T = T 

decl ag 

DELLT4 = T - T 

pass4 decl 

Perform "AGAIN" 

-gtig "" DELVEET2 
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TS = . 

- -gtig 

Perform "GET. L VC" 

TS - R . 

- -tig 

Perform "CALCGRAV" 


TS = CSTEER 


’(<Vime - ’’%>/t00cs ' <=”1 / toOcs 

QFCT = TS - ( unitv , . • TS ) unitV , . 

-gtig -gtig 

TS^ =- CAPF / MASS^^p 

UT -= unit (qFGT t v/TS^^ _ jQFCif’ unitVg^.j^g j 

Proceed to "340.2,3" 


AGAIN 


Perform "CSMP'REC" 
RTX2 = X2 


RTXl = XI 


='R XU. 

-tig -att 

%nit ” -att 

V,.. == V 

-tig -att 

V. = V 
-init -att 

TSj_ = 0 

= K _ 

2 eps45 


If bit lO(NORMSW) of FLAGWRD7 = 


0 : 


'^^9 = K in 
2 epsIO 

Perform "INITVEL" 


Return 

340.2,3 Entered for P4O/P4I from "340.1"and "340. IB" 

P0INTV3M = (REF3iyiMA'^ UT 
If bit II(RC3BURN) of FLAGWRDl = I: 

Proceed to "340. 2, 3B" 
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YAWANG = K . YACTOFF + K 

trims ybias 

PITANG = K . PACTOFF + K , . 

trims pbias 

X , = (cos PITANG cos YAWANG, - cos PITANG sin YAWANG, sin PITANG) 
— smd ' ’ 

Z = (- sin PITANG cos YAWANG, sin PITANG sin YAWANG, cos PITANG) 
—smd 

—smd ~ YAWANG, cos YAWANG, O) Note x,z,y sequence & use below. 

SCAXIS = (cos PITANG cos YAWANG, sin YAWANG, - sin PITANG cos YAWANG) 


TS^ = UT 


TS = - unitRj^j^g 
TS 2 “ unitTS 


-X- UT 


If 

TS 2 = - unit ^ (unit^j_g + 0.125 unitV^^^) UT^ 


TS3 = - TS^ 


TS. 


[ts] = 


TS^ 

TS^ 


TS3 


—Sind —smd 


Y 

—smd 


Y 

—smd 


m 

[TSI 

[ts] 


—smd 


—smd 


[ts] 

Proceed to "P 40 SXTY" 
S40.2.3B 

SCAXIS = unitX 


X , = UT 
-smd — 

TS = UT * R. . 

-tig 

TS^ = unitTS 

If |tS| <■ K . 

^ minmagr 


TS^ = - unit ^ (unit^^g + 


0.125 unit 3 ^^g) UT^ 
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Z^ = -(Y 

—Sind — smd ~sTnd 

Proceed to "P 4 OSXTY" 

UPDATEVG Entered from "CALCN 85 " and "S 4 O. 8 " 

If bit 8(XDELVFm) of FLAGWRD2 = 0: 

If NBRCYCLS < 0; (set negative as initial condition and 

at end of "S40.9") 

Proceed to "SETUP. 9" 

DELVSUM = DELVSUM + DELVREF 

NBRCYCLP = NBRCYCLS + I 

NBRCYCLS = NBRCYCLP 

Proceed to "VGCOMP" 


VGCOMP 

V =V,.^ + BDT - DELVREF (V , . notation also "VGPREV" ) 

-g “gtig - - -gtig 

VGDISP = |Vgj 

V , . = V 

-gtig -g 

Return (to caller of "UPDATEVG") 


SETUP. 9 

If bit 7(FIRSTFLG) of FLAGWRD2 = 0: 

V . . = DELVEET2 + NBRCYCLP BDT - DELVSUM (V , . also 

-gtig -=• - - '-gtig 

has notation "VGPREV"; 
DELVEET2 also "VGTEMP") 

Establish "S 4 O. 9 " (priority 10*) (Restart protect by group 1.5, 

see "REDO 4 O. 9 ") 


R. . , = R 
-init - 

V. = V 
-T.nit — 

T = T 
nit pptm 

DELLT4 = T , - T 
pass4 

DELVSUM = 0 
NBRCYCLS = 0 
NBRCYCLP = 0 
Proceed to "VGCOMP" 


nit 
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SLO.B 


Entered due to AVEGEXIT setting in "P 4 OSXTY" 


Perform "UPDATEVG” 
MASSTMP = CSMMASS 

if( Idelvref j - C. 


J < 0:. 


"’dvthresh' 

If bit ll(STEERSW) of FLAGWRD 2 

Proceed to "SERVXTl" 

If bit 6 (IDLEFAIL) of FLAGWRDl 

Proceed to "SERVXTl" 


= 0 : 


(Tag here "LOTHRUST") 


(set/reset by "V97P") 


OMEGAC = 0 


REPFRAC = -0 

NVWORDl = -0 (causes "CLOCKJOB" to generate V97 display) 

Set bit ll(STEERSW) of FLAGWRD2 == 0 

Proceed to "SERVEXIT" 

CSMMASS = MASSTMP - C ^ ^ 

emdot 2 secnds 

If bit ll(STEERSW) of FLAGWRD 2 = 0: 

Proceed to "SERVXTl" 


If bit 15(SWT0VER) of FLAGWRD 9 = 1 : 
REPFRAC = 

frepfrac 

Skip next 2 lines 


(Tag here "CGTRACK") 


j = (bit 14 of DAPDATRl) (l for LM on, 0 for LM off) 

REPFRAC = C 

erepfraCj 

TS^ = BDT - DELVREF (Tag here "TGOCALC") 

TS„ = unitTS, • V 

2 -1 -g 

If TS^ y/ 0: 

Perform "ALARM" (pattern 1407g) (Tag here "INCRSVG") 
Proceed to "SERVEXIT" 
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SLO 


V “ ■'mfourdt ^^2 + V ''2vexh 


T, = T ^ + T 

ig pptm go 


) /(|TSj) 

(for e.g. "CLOKTASK", giving GET of cutoff) 


If (T - )< 0; 

go foursec ^ 

Proceed to "340.81" 

DELTAM = CSTEER BDT - DELVREF 

TS = [rEFSMMAT^ (uni tv unitDELTAM) 

S 

Perform "-"-SMNB^s-" 

OMEGAC = KPRIMEDT TS 
Proceed to "SERVXTl" 

(Established if a Lambert bum by "SETUP. 9") 


TS^ = 0 

TS„ = K , _ 
2 ep45 


If bit lO(NORMSW) of FLAGWRD? = 0: 


TSo = K 
2 eplO 


Set bit 2(GUESSSW) of FLAGWRDl = 0 

Perform "INITVEL" (starting at second line) See "REDO4O.9" for 

X* © S t £L !r*"t s 

If bit 7(FIRSTFLG) of F1AGWRD2 = 0: (sot 1 in ”340.1’*) 


BDT = (V. . - V 

"■ •-i.prinie —rprev 


(’^200cs /^^nit " \itprev^3 


GDT 


If RTX2 ^ 0: (means earth-centered computations) 


DELVEET2 = DELVEET2 + (1 ^^^ . „OMTIG) GOBL /|r| 


T -4. 

nit 


nitprev 


V = V. . 

— rprev — iprune 


(DELVEET^ tag "VGTEMP") 


Set bit 7(FIRSTFLG) of FLAGWRD2 = 0 
NBRCYCLS = -1 
End of job 
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REDO^O . 9 Entered if a restart encountered from time of establishing 

"S 4 O. 9 " in "SETUP. 9" until return from "INITVEL" in "S 4 O. 9 ", 
due to restart group I .5 

DELVSUM = 0 

NBRCYCLP = 0 

DELVEETl = (for "SETUP. 9 "res to rat ion) 

NBRCYCLS = -1 
End of job 

S40.13 Established by "TIG-5" and "V97E" 

TS^ = VGDISP 

If bit 7(+X translation complement) of channel 31 = 0: 

TS = K_ - / MASS , 

2rcsf ' dp 

If bit 15(2 JETSFIjG) of FLAGWRDl = 0: 

TS = 2 TS (i.e. 4- jet translation) 

TS^ = TS^ - TS 

TS. = MASS, TSt (1 - TS, / K_ , ) 

2 dp 1 ^ 1 ' 2vexh 

If (TS 2^^: (or other overflow) 

End of job 

"S 3 = ''l00bna4 - Sein^laec^ < SefimplS 

“ ("S 3 - SoObM*) ^ 

End of job 
If TS^ < 0: 

'^^3 "" ^efimpl6 '^^3 ^ ^efimpOl 
Set bit 9(IMPULSW) of FLAGWRD2 = 1 

Force sign agreement of TS^ 

T = (TS. + ... , , ) , rescaled to scale factor B28 

go 3 100bml4^ ^ 

End of job 
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SUl.l 


Perform "CDUTRIG" 

TS = jPEFSHMAT^ TS 
Perform "^s-SMNB*" 

TS = ([QUADRO':^ TS (now in control coordinates) 

Return 
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Quantities in Computations 

See also list of major variables and list of routines 


BDT: "Effect of rate of change of required velocity, and gravity, acting 
during the two-second computing interval, upon velocity-to-be- 
gained," scale factor B7, units meters/centi-second. Set 0 in "S40.1". 

BURNANG: Value of one -half the central angle estimated to be traveled 

during the External Delta-V b\irn, scale factor BO, units revolutions, 
stored in push-down location I 4 D. 


^dvth h' precision erasable memory constant, program notation 

res ^ scale factor B-2, units meters/centi-second, giving 

velocity gate used in "S 4 O. 8 " for concluding that engine failure 
has taken place. Program shifts constant right 9 places before use, 
to scale it B7 meters/centi-second (double precision). In order to 
avoid improper performance, constant should exceed the velocity 
increment obtained by lillage (in a 2 -second interval). 


C • : Single precision erasable memory constant, program notation 

P "EIMPISEC", scale factor BI 4 , units kilogram-meters/centi-second. 

When divided by mass of vehicle, would give the SPS impulse velocity 

acquired in the first second of burn. For a value in pound-seconds, 

PSEC, the fraction in the cell may be computed as PSEC x 10 "^ x 

9.80665 X 0.45359237 X 2 ~^ , where first term is value, second converts 

to centi-seconds, third is g, fourth converts from pounds to kilograms, 

and fifth is scale factor. Constant is used double precision, with 

least significant half the cell used for C . 

efimpOl 

0 Q-| : Single precision erasable memory constant, program notation * 

P "EFIMPOl", scale factor BI 4 , units kilogram-meters/centi-second^ 
It gives the slope of the SPS impialse curve from 0 to 1 second. For 
a value in poimd-seconds/second, PNDSSC, the fraction in the cell may 
be computed as PNDSSC x IQ-^x 9 . 8 O 665 x 0.45359237 x 2“^, where first 
term is value, second converts to centi-seconds®, third is g, fourth 
converts from pounds to kilograms, and fifth is scale factor. Constant 
is used double precision, with least significant half the cell used 

*^efimpl6’ 


^efimnlb" precision erasable memory constant, program notation * 

P "EFIMPI 6 ", scale factor BI 4 , units kilogram-meters/centi-second*'^ 
It gives the slope of the SPS impulse curve from 1 to 6 seconds (and 
may be computed by the fomula' given for C above). The constant 

is used double precision, with least significant naif the cell used 


for C 


e3 j22r2m 


(see Orbital Integration). Is equivalent to thrust, of course 


Cp TTirl Single precision erasable memory constant, program notation "EMDOT", 
scale factor B3, units kilograms/centi-second, giving the nominal 
mass flow rate for the SPS engine . 



erepfrac.: See Digital Autopilot TVC Routines. 

C, , : Single precision erasable memory constant, program notation 

6C y , scale factor B14, units centi-seconds, giving value of 

thrust decay time (i.e. equivalent full-thrust time). It is 
subtracted from the "raw" time-to-go, and therefore should be a 
positive number in the memory. Used in "S 4 O. 8 " only (for SPS burns). 


CAFF: See Burn Control. 

CSMMASS: See Digital Autopilot Interface Routines. 


CSTEER: Scalar in cross-product steering law, scale factor B2. It is set 
to ECSTEER in "P 4 OCSM" (provided a Lambert burn specified), and 
otherwise has most significant half zero. Least significant half 
is always zero. 


DAPDATRl: See Digital Autopilot Interface Routines. 

DELLT4: See Rendezvous Computations. 

DELTAM: Value of (CSTEER BDT - DELVREF), scale factor B7, units meters/ 

centi-second . Its unit vector (scale factor Bl) is stored temporarily 
in the push-down list. 

DELVEET2.: See Rendezvous Computations (DELVSIN occupies the same cells). 

DELVREF: See General Program Control. 

DELVSAB: Absolute value of DELVSIN used in "S 40 .I" in the computation of 
BURNANG for External Delta -V burns, scale factor B7, units meters/ 
centi-second . 


DELVSIN: See Burn Control. 

DELVSUM: Value of s\im of DELVREF outputs from Average-G computed in 

"UPDATEVG" for Lambert biu'n, used to correct V , . for accelerometer- 
output velocity gained since "S40.9" establishfS^® Scale factor B7, 
units meters/centi-second. Initialized to 0 in "SETUP. 9". 

GDT, GDTl: See General Program Control. 

GOBL: See General Program Control. 

K oobmiA’ Constant, program notation "IOOB-I 4 ", scale factor BI 4 , units 

centi-seconds. Value is 100 x 2“^^, corresponding to one second. 

^200cs' Constant, program notation "200CS" scale factor B12, units 

centi-seconds. Value is 200 x 2“^^, corresponding to 2 seconds. 

K^oobmiA* Constant, program notation " 5 OOB-I 4 ", scale factor BI 4 , units 
centi-seconds. Value is 500 x 2“^^, corresponding to 5 seconds. 
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K Constant, program notation ^340.135") scale factor B23, 

nominal value 69 . 6 OO 5 I 83 x 2 " 23 . Value corresponds _ to 796 2 

times 2 ~ 23 ^ i.e. the velocity increment (after dividing by MASS; 
for 7.96 seconds of two- jet RCS thrusting. See Burn Control for 
K o value . Octal value is 00000. O 4263 ., corresponding to 
6^^^§375 X . Before original ignition, "340.13" is entered 
5 seconds before ignition time, with last Average-G sample made 
5.96 seconds before ignition. Program zeros channel 5 (ullage 
jets) at end of "IGNITION" routine, 2 seconds after ignition. 

K , : Constant, program notation "FOURSEC +1", scale factor BI 3 , units 
2secnds centi-seconds . Octal value is 00620g OOOOOg, corresponding to 
200 X 2”i3^ or two seconds. 

^2vexh’ *^°*^® 6 ant, program notation "2VEXHUST", scale factor B7, units 

meters/centi-second . Value is 63.020792 x 2 ~' 7 , corresponding to 
2 X 31.510396 X 2“' , where first term is an equation factor of 
two, second is the exhaust velocity in meters/centi-second, and 
the third is the scale factor. Exhaust velocity of 3151.0396 
meters/second (1033®. 05643 fps) corresponds to an I , dividing 
by 9 . 80665 , of about 321.32 seconds, or 20500 / 63 . 8 .^^ 

K ; Constant, program notation "EARTHMU", scale factor B 36 , value 

ear mu _2_qg5o32E10 x 2 “ 36 ^ corresponding to earth - ^ (in units of 
meters3/centi-second^) . 

K Constant, program notation "EP 4 (lO)L", scale factor BO, units 

^ revolutions. Value is 0.027777777, corresponding to ten degrees. 

'^ep45' program notation "EP4(45)L", scale factor BO, units 

^revolutions. Value is 0.125, corresponding to 45 degrees. 

K 10 = Constant, program notation "EP4(10)H", scale factor BO, units 

revolutions. Value is 0.027777777, the same as K (duplicate 
storage in "high" part of memory). 

^eps45’ program notation "EP4(45)H", scale factor BO, units 

^ ^^revolutions. Value is 0.125, the same as K 

ep45 

Kfoursec' program notation "F0UR3EC", scale factor B28, 

units centi-seconds . Value is 4 OO x 2“^^, corresponding to 
four seconds. 


K 


f repf rac ' 


3ee Digital Autopilot TVC Routines. 


Kmf Constant, program notation "-F0URDT", scale factor BI 6 , units 

centi-seconds. Value is -800 x 2“^^, corresponding to 
(-1) X 200 X 2“^°, where first term is an equation factor, second 
is computing interval (i.e. 2 seconds), and third is scale factor. 
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K . : See Attitude Maneuvers (equivalent effect achieved to use of 

constant, by checking most significant half of magnitude 

for 0) . 

K . : Dummy constant used to show effect of checking for magnitude of 

minmagr^g^^^^ information, scale factor B30, imits meters. Value is 

equivalent to 2 ~'^ (cf. K . ), or meters. 

^ nmimag ’ 

K , . ; Constant, program notation "PBIAS", scale factor BO, units 

^ ^^^revolutions . Value is -0.00597222222, corresponding to -2.15 
degrees (the "pitch mechanical bias with thrust on"). Hence a 
PACTOFF input of +2.15 degrees would be considered to line up the 
bell in pitch along +X. 

K, , , : Constant, program notation "TENBNK14", scale factor B4, value 
en 4 10 ^ 2-4, corresponding to 10. Used to correct for the fact 
that matrix; elements of l^UADROXl are multiplied by 0.1 because of 
the cycle rate during Attitude Maneuvers . 

K,. . : Constant, program notation "THETACON", scale factor B6, value 

e 3 183 0989 X 2 ~°. Value corresponds to 5 x (l/2Tr) x 2“°, where 

first tern is an equation factor of one-half (to obtain half the 
central angle traveled during the bum), second converts from 
radians to revolutions, and third is scale factor. 

K, . : Constant, program notation "TRIMSCAL", scale factor B-13, value 

rimsi. 0797^111 ^ 2 - 1 , Value corresponds to 85 . 41 x]/(360 x 36 OO) x 
2^3^ where first term is bit weight in arc seconds for PACTOFF 
and YACTOFF, second converts to revolutions, and third is scale 
factor. 

Ktwodt' •^o^stant, program notation "TWODT", scale factor B28, units 

centi-seconds . Value is 200 x 2“^°, corresponding to 2 seconds. 

K , , : Constant, program notation "YBIAS", scale factor BO, units 

^ ^^^re volutions . Value is +O.OO 263 888889 , corresponding to +0.95 

degrees (the "yaw mechanical bias with thrust on"). Hence a YACTOFF 
input of -O .95 degrees would be considered to line up the 
bell in yaw along +X. 

KPRIMEDT: See Digital Autopilot TVC Routines. 

MASS: See Digital Autopilot Interface Routines. Incorrect "double precision". 

MASSTMP: Temporary storage for CSMMASS in "S40.8", scale factor BI 6 , units 
kilograms, used to achieve restart protection there. 

NBRCYCLP: Single precision counter, scale factor BI 4 , of the number 

of cycles of DELVREF information that have been summed in DELVSUM. 

It is incremented in "UPDATEVG" and reset in "SETUP. 9". It 
is used for restart protection purposes (with NBRCYCLS, which 
is in the preceding cell), and also to u;^ate V by the suitable 
amount of BDT for the time elapsed since "S40.9^ w§s established. 
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NBRCYCLS: Single precision counter, scale factor B14, used in conjunction 
with NBRCYCLP. At the end of "S40.9"j it is set to -1 as a flag 
to "UPDATEVG" that a new Lambert solution has been obtained. It is 
also set to an initial condition of -1 in "P4OSXTY" (for P40 and P41) 
before Average-G is started. 

NOMTIG: See Burn Control. 

NWORDl: See Burn Control. 

OMEGAC; See Digital Autopilot TVC Routines. 

PACTOFF: See Digital Autopilot TVC Routines. 

PITANG: Value of angle in pitch axis used in "S40.2,3", scale factor BO, 
units revolutions. Used to calculate the desired position of 
the engine bell in spacecraft coordinates. 

POINTVSM; See Attitude Maneuvers. 


QFCT: Value of qxoantity computed in "S40.IB", scale factor B-5, units 
meters/centi-second^, stored in push-down list location 12D. 

lpUADRO'3 ; See Attitude Maneuvers . 


See Rendezvous Computations. 



See Burn Control. 


REPFRAC: See Digital Autopilot TVC Routines. 


RTXl, RTX2: See Orbital Integration. 


SCAXIS: See Attitude Maneuvers. 


T : Value of time-to-go computed in "S4O.8", scale factor B28, units 
centi-seconds . Least significant half loaded with required delay 
before cutoff (for restart protection purposes) in "S4O.8I", scale 
factor BI4. 

T^^^: Value of time tag associated with state vector loaded by "SETUP. 9", 
scale factor B28, units centi-seconds. 


lit re ' '^nit previous entry into "S40.9"j loaded at the 

^end of "S40.9"j scale factor B28, units centi-seconds. Used with 
T^^^ to determine the proper divisor (with K200cs^ difference 


of required velocities, in computation of BDT. Since accelerometer 


sampling at 2 second intervals, value used to divide velocity 
difference would be expected to be an integer (e.g. 2 if four 
seconds elapsed). Time difference shifted left 17 places after 
being formed, giving result modulo 2^^ centi-seconds (20.48 seconds). 


STER-13 


Rev. 0 



'^pass4* 


See Bum Control. 


UT: Unit vector, scale factor Bl, in the direction of desired thrust 

(expressed in reference coordinates). Cell also used for temporary 
storage purposes. 


V : Velocity-to-be -gained vector, scale factor B?, units meters/centi- 
second, in reference coordinates. 

-etiff" Bum Control (during Average-G running, retains the previous 
^ Salue of V ). 

-g 

-init' Rendezvous Computations. 

-iprime' Rendezvous Computations. 

mnrev* previous V. . (i.e. the one associated with T _ ), 

scale factor B7 , units meters/centi-second. ^ 

V^^^: See Burn Control. 

VGDISP: See Burn Control. 

-smd" -smd’ -smd’ Inflight Alignment. Program notation also • 

YACTOFF: See Digital Autopilot TVC Routines. 


YAWANG: Value of angle in yaw axis used in "S40.2,3", scale factor BO, 
units revolutions. Cf. PITANG. 
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Telemetry 


DODOWNTM Entered after receipt of program interrupt #8, telemetry- 

end p\ilse (from telemetry system) 

If bit 7 (Word Order Code) of channel 13 = 0: 

Perform "C13STALL" 


Set bit 7(Word Order Code) of channel 13 = 1 
Proceed to address specified by DNTMOOTO 
DNPHASEl Initial condition set in "STARTSUB" for DNTMGOTO 

SUBLIST = -1 
DNECADR = -1 
DNTMGOTO = "DNPHASE2" 


CTLIST = ^ 

dntable^jj^g^j^Qj^ 

Perform "C13STALL" 


(Tag here is "NEWLIST") 


Set bit 7 (Word Order Code) of channel 13 = 0 

Channel 34 = - DNLSTCOD 

Channel 35 = 77340g (i.e. - 00437 q) 

Resimie 


DNPHASE2 

If DNECADR>0: (i.e. sending data) 

Proceed to "FETCH2WD" 

If SUBLIST >0: (i.e. sending sublist) 

Proceed to "NEXTINSL" 

If CTLIST.^ 0: (End of list reached, start over) 

Proceed to 4th line of "DNPHASEl" 

ADR - EQipLjgip (Tag here "NEXTINCL", get here e.g. next 

interrupt after doing "DNPHASEl") 

If ADR > 0: 

CTLIST = CTLIST + 1 
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If ADR < 0: 


CTLIST = - CTLIST (end of list reached) 

DNECADR = I ADR I 

If DNECADR = "TIME2": (i.e. computer clock) 

Perform "CI 3 STALL" 

Set bit 7 (Word Order Code) of channel 13 = 0 
Proceed to "SETWO+2" 

SETWCH-2 

TS = DNECADR - 30000^ 

If TS<0: (i.e. bits 14-12 of DNECADR less than 6 ) 

Proceed to "FETCH2WD" 

TS = TS - OAOOOg 

If TS > 0: (i.e. bits 14-12 of DNECADR are 7) 

TS^ = Channel # (DNECADR - 34000g + l) (Tag here "DODNCHAN") 

TS = Channel # (DNECADR - 34000^) (34000. subtracts 

bits 14-12 = 7 ) 

DNECADR = -1 
Channel 34 = TS 2 
Channel 35 = TS^ 

Resume 

SUBADR '^^NECADR — 30000 (bits 14—12 of DNECADR are 6 j tag 

8 here is "DODNPTR") 

If SUBADR > 0: 

SUBLIST = DNECADR 
Proceed to "NEXTINSL" 

SUBLIST = DNECADR SUBADR negative, meaning snapshot) 

SUBADR = (sUBADRI- 1 
TMINDEX = 0 
Proceed to "SNAPLOOP" 
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SNAPLOOP 


EBANK = bits 11-9 of SUBADR 

TS = 1401g + (bits 8-1 of SUBADR) (l401g instead of 1400g 

DMTMRITPF = F because of decrement in 

TMINDEK original setting of SUBADR) 

TMINDEX = TMINDEK + 2 

SUBLIST = SUBLIST + 1 

SUBADR = _ 3oooOg 

If SUBADR > 0: 

SUBADR = SUBADR - 1 
Proceed to "SNAPLOOP" 

SUBLIST = |SUBADR\ - 1 
DNECADR = -1 
TS = SUBLIST 
SUBLIST = -1 


EBANK = bits 11-9 of TS 


TS = lAOlg + (bits 8-1 of TS) 


(Channel 34j Channel 35) = E _ 

i O j 

dp 


Resume 


FETCH2WD 


EBANK = bits 11-9 of DNECADR 
TS = (bits 8-1 of DNECADR) 

DNECADR = DNECADR + 74001g (subtracts 1 from bits 14-12 and 

adds 2, for double precision, 

TS = 1400^ + TS to bits 11-1: 74001^ = - 04000^ + 

® 00002g) ® ® 

(Channel 34> Channel 35 ) - E^_ 

dp 

Resume 
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NEXTINSL 


SUBADR = _ 3QQ00g 

If SUBADR > 0: 

SUBLIST = SUBLIST + I 
If SUBADR < 0: 

SUBLIST = -I (end of list reached) 

DNECADR = I SUBADR I 
Proceed to ''SETW(>t2" 

DNDUMFI Entered by the setting of DNTMIOTO to "DNDUMPI" in 
"DNEDUMP" for a V7AE 

DUMPLOC - 0 

Perform "SENDID" 

DNTMGOTO = "DNDUMPI" 

Channel 34 = DUMPLOC 

Channel 35 = TIMEI 

Resume 

SENDID 

DNTMGOTO = Return address 
Perform "CI3STALL" 

Set bit 7 (Word Order Code) of channel 13 = 0 
Channel 34 = 1777^ 

O 

Channel 35 = 77340g 
Resume 
DNDUMPI 

DNTMGOTO = "DNDUMP" 

EBANK = bits 11-9 of DUMPLOC 
TS = 1400g + (bits 8-1 of DUMPLOC) 

(Channel 34j Channel 35) = E^g (Read by mask using -0 to avoid 

dp affecting shift register cells, 

0020g - 0023g) 


Resume 
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DNDUMP 


DUMPLOC = DUMPLOC + 2 (modulo 2^^) 

If bits 8-1 of DUMPLOC --f 0: 

Proceed to second line of "DNDUMPl" 

If bit 13 of DUMPLOC =1: (2 complete dumps) 

Proceed to "DNPHASEl" 

Proceed to second line of "DNDUMPl" 

VAC5ST0R Entered from "BAILOUT", "GOPROG", and "POODOO" to save 

data in VAC area #5 for ground checking (after e.g. V74E) 


VAC5+3ij^ — (LOC, BANKSET)^ (i = 0-6) Job register set 

starting addresses 

VAC5+2t3i = PRIORITY^ (i = 0-6) Job priorities 

VAC5+19+2i^ ^ (PHSNAMEi) (i = 1-6) 2CADR variable -tsqse restarts 

starting addresses 


VAC5+32+i = PHASEi (i = 1-6) Restart-group phase values 

VAC5+39 = MPAC+3 Used in display interface routines 

for retiirn address 


VAC5+40^p = NEWLOC 


Contains starting address for job 
being established 


VAC5+22 = NEWJOB 
VAC5+26 = NEWPRIO 


Control of job selection 
Priority of new job 


Return 


NOTE: See 3420.5-2? for details of the significance of the above 
quantities . They are intended to be an aid to deteraiining 
what happened" when other methods (such as flag words or 
program alarms) give insufficient detail. Use of these 
quantities would require access to the program listing, and 
a detailed understanding of the coding implementation. Such 
details (absolute machine addresses, and all restart points) 
can be obtained from the listing as necessai^yj they are not 
included in this document. 
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Quantities in Computations 

See also list of major variables and list of routines 


ADR: Single precision dummy cell used for temporary storage of the 
address information taken from the cell whose address is in 
CTLIST (i.e. the "control", or master, telemetry list). If it 
is read as negative, this means that the end of the master list 
(the final entry) has been reached. When the necessary number 
of telemetry transmissions have taken place based on this last 
entry, the list is started again (CTLIST is complemented if ADR 
is found negative, for control in "DNPHASE2"). 

CTLIST: Single precision cell initialized in "DNPHASEl" with the 

starting address for the "control", or master, telemetry list, 
and subsequently incremented in "DNPHASE2" as quantities are 
read from this list. When the final quantity is read, CTLIST 
is complemented (see ADR) to cause list to be restarted again. 

DNECADR: Single precision erasable memory cell used to contain the 

address (and other) information associated with the transmission 
of a series of words based upon a single entry into the control 
or sublist table . Bits 8-1 give the S-register portion of the 
word in E-memory (the most significant half), while bits 11-9 give 
the EBANK . If bits 14—12 are in the range 0—5 , they control the 
transmission of 1—6 respectively consecutive erasable memory pairs. 
While this transmission is going on, DNECADR will be positive, 
causing branching at the start of "DNPHASE2" to "FETCH2WD", where 
bits 14-12 are decremented by 1 and bits 11-1 incremented by 2 
(for double precision operation). When final cell has been sent 
based on a given table entry , DNECADR becomes negative , allowing 
further checks in "DNPHASE2" . 

If bits 14-12 of DNECADR are 6, this means a "sublist" (i.e. a 
list of telemetry quantities that can be common to several master 
lists, hence serving as a quasi "sub-routine" list), with bits 
11-1 giving its starting address. Finally, if these bits are 7, 
they indicate transmission of channel information. 

DNLSTCOD: Single precision cell, scale factor B14, loaded by various 

mission programs (e.g. in V37 processing, transition to Pll or P62, or 
start of P27) with the desired serial number (in range 0-4) of 
the master downlist to be sent. It is used in "DNPHASEl" to 
index 'to select the proper starting address, and for list id. 
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DNTMBUFF: Set of 12 erasable memory cells which can be loaded in 
"SNAPLOOP" with values of quantities (such as vehicle state 
vector) requiring sampling at a single point in the computation 
cycle. A "snapshot" is indicated by bits 14-12 of DNECADR being 
6 (a sublist) and the first word in that list being negative. 
Looping continues in "SNAPLOOP" until the next negative word is 
found: this word is not used for address information to be placed 
into DNTMBUFF, but instead is used to read the memory directly and 
send the indicated word. Consequently, 7 double precision cells, 
e.g. position, velocity, and time, can be subject to the "snapshot" 
process at a given telemetry interrupt. 


DNTMIOTO: Single precision cell containing address to which transfer is 
to be made when a telemetry interrupt (#8) is received. Except 
for Initialization, it would be expected to remain at "DNPHASE2" 
for normal (i.e. not erasable memory dump) downlists. 

DUMPLOC: Single precision cell (assigned same erasable memory cell as 
TMINDEX) used to control the performance of the erasable memory 
dump program. Initialized to zero at the start of "DNDUMPI", and 
subsequently incremented by 2 in "DNDUMP" to permit selection of 
the next set of erasable memory cells. Bits 8-1 (OOOg - 311 n) 
select the cell within the erasable memory bank, since each bank has 
256 cells. Bits 11-9 (carries propagate from bit 8, of course) 
select the erasable memory bank (0 - 7). Bits 13-12 serve as a 
counter of the number of complete erasable dumps which have been 
performed (when bit I 3 becomes 1, indicating 2 dumps, dumps cease). 


EBANK: See Data Input/Output . 


^dntable.’ single precision starting addresses for master 

i telemetry downlists, used in "DNPHASEl" to load the proper 
initial conditions for CTLIST based upon the present value of 
DNLSTCOD. Program notation for first table entry is "DNTABLE" . 
Values are: 


i Starting Address 

0 "CMCSTADL" 

1 "CMENTRDL" 

2 "CMENDDL" 

3 "CMPOWEDL" 

4 "CMPG22DL" 


Identification of List Data 

Coast and Align 
Enti-y and Update 
Rendezvous & Prethrust 
Powered 
Program 22 


SUBADR: Single precision dummy cell used for temporary storage of 
the address information taken from the cell whose address is 
in SUBLIST (i.e. a "sublist", see DNECADR). If it is read as 
negative, this means that the end of the sublist has been 
reached. When the necessary number of telemetry transmissions 
based on this last entry have taken place, the master list is 
used again (SUBLIST is set negative in "NEXTINSL", for control 
in "DNPHASE2"). Function is analogous to ADR's for a master list. 
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SUBLIST: Single precision cell initialized in "SETWO+2" to DNECADR 
for a non-snapshot list (for bits 14-12 of DNECADR = 6 ), giving 
then the starting address of the required sublist. While 
positive, "DNPHASE2" will transfer to "NEXTINSL" whenever 
DNECADR becomes negative: "NEKTINSL" increments SUBLIST until 
a negative readout (see SUBADR) is encountered, when SUBLIST 
is set to -1 to cause "DNPHASE2" to return to the master list. 

Function is analogous to CTLIST's for a master list. In 
"SNAPLOOP", it is used to index the readout of the snapshot 
sublist, and is left at -1 when "SNAPLOOP" is done to cause 
"DNPHASE2" to take next entry from master list (which should 
be a requirement to transmit DNTMBUFF cells). 

TICENDEK: Single precision cell, scale factor B14, initialized to 0 

in "SETWCH-2" for use in indexing DNTMBUFF storage in "SNAPLOOP". 

It is assigned the same cell as DNECADR. 

VAC5: First address in VAC area #5 (see 3420.5-27), the last to be assigned, 
and hence used in "VAC5ST0R" to retain trouble-shooting information. 

Information on the downlists appears on the following pages: 


Telemetry Table Interpretation 

TELE-9 

Coast and Align List 

TELE-11 

Entry and Update List 

TELE-16 

Rendezvous &. Prethrust List 

TELE-21 

Powered List 

tele -26 

Program 22 List 

TELE-31 

Special Erasable Memory Dump List 

TELE -36 
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Telemetry Table Interpretation 


To satisfy mission requirements, five different sets of downlinked 
memory cells can be specified. The mission program achieves the 
required specification by setting a quantity between 0 and 4 into 
DNLSTCOD (usually as part of the processing of a V37 program change). 

This quantity is used to index a table of fixed memory addresses in 
order to find the starting address of the particular list of downlinked 
memory cells required (powered flight, coast and align, etc.). In order 
to minimize the amount of fixed memory reqioired for storage of this 
information, and maximize the flexibility of the infonnation that is 
telemetered, a special storage format for the required addresses is used. 

The table whose starting address is found by using DNLSTCOD is 
known as the "control" (or master) downlist. There is a separate 
such list for each different downlink set of information, and except 
for the first word in each 100-word set, the transmission of the 
information in the downlink set is under the control of information 
in this control list. 

Within this control list, several different types of options 
can be employed: 

a) A single (double precision, i.e. 2 consecutive erasable memory 
cells) downlink transmission can be specified. This is done by storing 
the ECADR (see 3420.5-2?) of the first word in bits 11-1 of the fixed 
memory cell. The assembler operation is "IDNADR" . 

b) Two downlink transmissions (giving four cells in a row) can be 
specified. This is done by storing the ECADR for the first word in 
bits 11-1 of the fixed memory cell and putting a 1 in bit 12. The 
assembler operation in this case is "2DNADR" . 

c) Three downlink transmissions (giving six cells in a row) can 
be specified. Here again, the ECADR of the first word is in bits 11-1 
of the fixed memory cell and a 1 is put in bit 13 . The assembler 
operation in this case is "3DNADR" . 

d) Four, five, or six (giving 8, 10, or 12 cells in a row) can 
also be specified. The ECADR of the first worri is in bits 11-1 of 
the fixed memory cell and bits 14-12 contain the (number - l) of the 
transmissions desired: bit 14 is a 1 and bit 12 is a 1 for six 
transmissions, for example. The assembler operations are nDNADR. 

e) A "sublist" can be specified. This permits a sequence of cells, 
such as state vector information, that may be common to more than one 
list to be specified only once (a sort of quasi "sub-routine" capability). 
In this case , bits 11-1 contain the address of the sublist (S-register 
portion, since in same bank) and bits 14-12 contain 6 (assembler operation 
is "DNPTR" ) . This particular assignment makes the 15-bit memory word 

of the form 3XXXK: rather than subtracting or masking out the "3" (as 
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indicated in this writeup), the coding takes advantage of the fact 
that this is the proper form for a "clear add" instruction (hence 
merely indexes on OOOOOg) . 

f) A single downlink transmission of a pair of channels can be 
specified. In this case, bits 6-1 would contain the channel number 
and bits 14-12 would contain 7 . The assembler operation for this is 
"DNCHAN", and advantage is taken of the " 7 " by indexing to form the 
required order, rather than subtracting or masking it out as 
indicated in this writeup. 

g) The end of the control list (indicating that the list should 
be started again) is flagged by having the cell be negative (e.g. 
"-6DNADR" instead of "6DNADR"). 

If, per item e, a "sublist" in specified, then two options are 
available : 

1. A "normal" sublist, in which case information can be stored 
in a manner exactly like the control list, except that option "e" 
should not be used (sublists cannot reference other sublists). The 
end of the sublist is flagged by a negative cell (as in option "g"), 
indicating in this case that information should again be taken from 
the control (master) list (at the line after the DNPTR). 

2) A "snapshot" sublist, flagged by the fact that the first item 
in the sublist is negative (i.e. "-1DNADR"). The "snapshot" feature 
allows up to seven double precision words to be sampled at the same 
telemetry interrupt point, to achieve on the downlink a consistency 
of this information (e.g. position, velocity, and time of state vector). 
In this case, the remaining items in the sublist must be "IDNADR" form; 
the cell data specified by the first table entry through the next-to- 
last are stored in a special telemetry buffer (DNTMBUFF). The last 
entry in the sublist is negative, and in this case only is the first 
cell address transmitted. In all other cases, addresses in the lists 
are stored in the order in which they are transmitted. In order to 
cause transmission of the DNTMBUFF cells, the entry in the control 
list following the DNPTR cell for the snapshot should require 
transmission of DNTMBUFF cells (e.g. "6DNADR DNTMBUFF"). 

Except for specification of snapshot lists, which can occur only 
by DNPTR orders in the master (control) list, there is no maximum to 
the number of individual entries in either the control or sublists, 
except of course the convention that a complete telemetry cycle involves 
100 double precision words. In addition, downlink processing format 
requires that word #51 (the computer clock) have a word order code bit 
of 0: a check for transmission of this word is made only for readouts 
from the master list (address 002Ag) . 
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Information in Telemetered Words 


There are five different dovmlists that may be transmitted diiring 
the flight (plus the special erasable memory dump initiated by a 
V74E) . These five lists are implemented in the computer memory as the 
addresses of cells in erasable memory: the contents of the cells, in 
turn, can depend upon the phasing of the telemetry interrupts with 
respect to the other computations. In addition, cells are frequently 
time shared among different mission phases. The information below 
should be augmented by more detailed material on the telemetry data for 
items not covered. 

Unless otherwise specified, the contents of the words below 
reflect both Channel 34 and Channel 35 (i.e. a double precision 
number) . In those cases for which the information in the two channels 
is not closely related, "a" signifies the Channel 34 information and 
"b" the Channel 35 information. 

Coast and Align List 


This list, with starting address of "CMCSTADL", is selected for 
DNLSTCOD = 0. It is used in POO, POl, P02, P03, P06, P07, P51, 

P52, P53, and P54. 


Word # 

Quantity 

Meaning 

List Identification 


la 

77777g 

Identification of list (-0) . 

lb 

77340g 

Special synchronization bits. 

Snapshot Group #1 




Words 2-8 are all sampled at the same telemetry 
interrupt time, with words 3-8 stored in 
DNTMBUFF for subsequent transmission. Cells 
for these words are those originally sampled. 

2-4 

R 

Position state vector (word 2 x component). 

5-7 

V 

Velocity state vector (word 5 x component). 

8 

"^pptm 

State vector time. 

Snapshot Group #2 



Words 9-13 are all sampled at the same telemetry 
interrupt time, with words 10-13 stored in 
DNTMBUFF for subsequent transmission. 
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Word # 

Qiiantity 

Meaning 

9, 10a 

CDU 

IMU CDU angles. 

10b 

CDUT 

See Optics Computations . 

11-13 

ADOT 

See Digital Autopilot RCS Routines (same 
cell used for e.g. TVC DAP observed rates). 

Erasable Group #1 




Words 14-44 are sampled as the telemetry- 
interrupt for them is received. 

14,15a 

AK 

See Digital Autopilot Interface Routines . 

15b 

RCSFLAGS 

See Digital Autopilot Interface Routines. 

16 , 17 a 

THETADX 

See Digital Autopilot RCS Routines (these 
are not N22 quantities). 

17 b 

DELCDUX 

sp 

See AttitiJde Maneuvers. 

18 

T. 

ig 

Ignition time (or predicted cutoff time). 

19a 

BESTI 

See Inflight Alignment. 

19b 

BESTJ 

See Inflight Alignment. 

20 - 23 a 

MARKDOWN 

Cells MARKDOWN+0 to MARKDOWN+6 (see Measurement 
Incorporation) . 

23b 

RM 

See Measurement Incorporation. 

24-27a 

MARK2DWN 

Cells MARK2DWN-P0 to MARK2DWN+6 (see Inflight 
Alignment) . 

27b 

DVPREV 

sp 

See Rendezvous Computations. 

28 

HAPOX 

See Display Computations. 

29 

HPEFJX 

See Display Computations. 

30 a 

PACTOFF 

See Digital Autopilot TVC Routines. 

30 b 

YACTOFF 

See Digital Autopilot TVC Routines. 

31-33 

V 4 .. 

“gtig 

See Burn Control. 

34-36 

REFSIMATq 

First row of jREFSMMA'^ . 

37-39 

REFSMMAT^ 

Second row of [rEFSMMA'^ . 
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Word # 

Quantity 

Meaning 

kO-kk 

FLAGWRDO- 

FLAGWRD9 

Program control flag words. 

Display Table Group #1 




Words 45-50 are sampled as the telemetry- 
interrupt for them is received. 

45-50 

DSPTABtO- 

DSPTAB+11 

"Display table" information (DSPTAB+O is 45a). 
See Data Input /Out put . 

Computer 

Clock 

Word 51 is sampled when the telemetry interrupt 
for it is received. 

51 

T 

now 

Present value of computer clock (TIME2,TIMEl) . 

Snapshot 

Group #3 

Words 52-58 are all sampled at the same 
telemetry Interrupt time, with words 53-58 
stored in DNTMBUFF for subsequent transmission. 

52-54 

-other 

See Orbital Integration. 

55-57 

—other 

See Orbital Integration. 

58 

T 

etlm 

See Orbital Integration. 

Snapshot Group #U. 




Words 59-63 are all sampled at the same 
telemetry interrupt time, with words 6 O -63 
stored in DNTMBUFF for subsequent transmission. 

59,60a 

CDU 

IMU CDU angles. 

60b 

CDUT 

See Optics Computations. 

61-63 

ADOT 

See Digital Autopilot RCS Routines (roll, pitch, 
yaw respectively) . 

Erasable Group #2 




Words 64-90 are sampled as the telemetry 
interrupt for them is received. 

64 

0PTI0N1,2 

See Display Interface Routines. 

65 

T 4- 

et 

See Orbital Integration. 
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Word # 

Quantity 

Meaning 

66 , 67 a 

THETADX 

See Digital Autopilot RCS Routines. 

67b 

DELCDUX 

sp 

See Attitude Maneuvers . 

68 

RSBBQ,^ 

dp 

See General Program Control. 

69a 

Channel 76 

Not meaningful. 

69 b 

Channel 77 

Hardware restart information. 

70a 

C31FLWRD 

See Digital Autopilot RCS Routines. 

70b, 71 

FAILRBG 

FAILREG+O to FAILRE&t2 (see General Program 
Control) . 

72a 

CPUS 

See Optics Computations. 

72b, 73 

PIPA 

See IMU Computations. 

74 

OGC 

See Coordinate Transformations . 

75 

IGC 

See Coordinate Transformations. 

76 

MGC 

See Coordinate Transformations. 

77a 

FLGWRDIO 

Program control flag word. 

77b 

FLGWRDll 

Program control flag word. 

78 

evt 

Event (e.g. liftoff or engine on/off) time. 

79 

LAUNCHAZ 

See Prelaunch Alignment. 

80a 

OPTMODES 

See Optics Computations. 

80b 

HOLDFLAG 

See Digital Autopilot Interface Routines. 

81a 

LEMMASS 

See Digital Autopilot Interface Routines. 

81b 

CSMMASS 

See Digital Autopilot Interface Routines. 

82a 

DAPDATRl 

See Digital Autopilot Interface Routines. 

82b 

DAPDATR2 

See Digital Autopilot Interface Routines. 

83,84a 

ERROR 

See Digital Autopilot RCS Routines. 

84b 

THETADX 

See Digital Autopilot RCS Routines. 

85-87 

WBODY 

See Digital Autopilot RCS Routines (same cells 
used for commanded rates in TVC). 
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Word # 

Quantity 

Meaning 

88a 

REDOCTR 

See General Program Control. 

88b, 89 

THETAD 

Desired CDU angles (e.g. N22) . 

90a 

IM0DES30 

See IMU Computations. 

90b 

IM0DES33 

See IMU Computations. 

Channel Quantities 




Words 91-94 are sampled as the telemetry- 
interrupt for them is received. 

91a 

Channel 11 

Outputs . 

91b 

Channel 12 

Outputs . 

92a 

Channel 13 

Outputs . 

92b 

Channel 14 

Outputs . 

93a 

Channel 30 

Inputs . 

93b 

Channel 31 

Inputs . 

94a 

Channel 32 

Inputs . 

94b 

Channel 33 

Inputs . 

Display Table Group #2 




Words 95-100 are sampled as the telemetry- 
interrupt for them is received. 

95-100 

DSPTAB+0- 

DSPTABtll 

"Display table" information. See Data 
Input / Output . 


TELE-15 


Entry and Uixiate List 


This 
DNLSTCOD = 

list, with 
= 1. It is 

starting address of "CMENTRDL", is selected for 
used in P27, P 62 , p63, p64, p65, p 66, and P 67 . 

Word # 

Quantity 

Meaning 

List Identification 


la 

77776g 

Identification of list ( -l) . 

lb 

77340g 

Special synchronization bits. 

Snapshot Group #1 




Words 2-8 are all sampled at the same telemetry 
interrupt time, with words 3-S stored in 

DNTMBUFF for subsequent transmission. 

2-4 

R 

Position state yector. 

5-1 

V 

Velocity state yector. 

8 

T ^ 

pptm 

State vector time. 

Snapshot Group #2 




Words 9 -I 3 are all sampled at the same telemetry 
interrupt time, with words 10-13 stored in 
DNTMBUFF for subsequent transmission. 

9, 10a 

CDU 

IMU CDU angles. 

10b 

CDUT 

See Optics Computations . 

11-13 

ADOT 

See Digital Autopilot RCS Routines (same 
cell used for e.g. TVC DAP observed rates). 

When Entry DAP is turned on, cells used 
for XPIPBUF and XOLDBUF (see General Program 
Control) . 

Erasable Group #1 




Words 14-44 are sampled as the telemetry 
interrupt for them is received. 

14,15a 

AK 

See Digital Autopilot Interface Routines. 

15b 

RCSFLAGS 

See Digital Autopilot Interface Routines. 


TELE-16 


Word # 

Quantity 

Meaning 

16, 17a 

THETADX 

See Digital Autopilot RCS Routines. 

17b 

DELCDUX 

sp 

See Attitude Maneuvers. In entry, word 17 
contains Q7 (see Entry Computations) and 
word l6 contains (QAXERR, RAXEflR) (see Digital 
Autopilot Entry Routines). 

18a 

CMDAPMOD 

See Digital Autopilot Entry Routines. 

18b 

PREL 

See Digital Autopilot Entry Routines. 

19a 

OREL 

See Digital Autopilot Entry Routines. 

19 b 

RREL 

See Digital Autopilot Entry Routines. 

20 

LdDl 

See Entry Computations. 

21-30 

UPBUFF 

See Uplink Processing (UPBUFF+0 through 
UPBUFF+19). Same cells used during 
entry DAP for CMTMTIME, SWdNDX, and ENDBUF 
(see Digital Autopilot Entry Routines). 

Words 29b and 30a are also VI (see Entry 
Computations), and 30b AO (see Entry 

Computations) . ^ 

31a 

COMPNUMB 

See Uplink Processing. 

31b 

UPOLDMOD 

See Uplink Processing. 

32 a 

UPVERB 

See Uplink Processing. 

32 b 

UPCOUNT 

See Uplink Processing. 

33a 

PAXERRl , 

See Digital Autopilot Entry Routines. 

33b 

ROLLTM 

See Digital Autopilot Entry Routines. 

34 

LATANG 

See Entry Computations. 

35 

ROOT 

See Entry Computations. 

36 

THETAH 

See Entry Computations. 

37 

LATSPL 

See Display Computations. 

38 

LNGSPL 

See Display Computations. 

39a 

ALFAdl80 

See Entry Computations. 

39b 

BETAdl80 

See Entry Computations. 

40-44 

FLAGWRDO- 

FLAGWRD9 

Program control flag words. 


TELE-17 


Word # 

Quantity 

Meanine 

Display Table Group 

Words 45""50 are sampled as the telemetry 
interrupt for them is received. 

45-50 

DSPTAB+0- 

"Display table" information. See Data 


DSPTABfll 

Input / Output . 

Computer 

Clock 

Word 51 is sampled when the telemetry interrupt 
for it is received. 

51 

T 

now 

Present value of computer clock (TIME2,TIMEl) . 

Snapshot Group #3 

Words 52-58 are all sampled at the same 
telemetry interrupt time, with words 53-58 
stored in DNTMBUFF for subsequent transmission. 

52 

T 

pptml 

See MJ Computations. 

53-55 

DELV 

Sampled accelerometer output (if least signifi- 
cant halves = 0, is uncompensated; otherwise 
is compensated data) . 

56 

TTE 

See Display Computations. Also used for 
IdDCALC ( see Entiy Computations ) . 

57 

VIO 

See Display Computations. Also used for 

LEWD (see Entry Computations). 

58 

VPRED 

See Display Computations. Also used for 

VL (see Entry Computations). 

Snapshot 

Group #U 

Words 59-63 are all sampled at the same 
telemetry interrupt time, with words 6 O -63 
stored in DNTMBUFF for subsequent transmission. 

59,60a 

CDU 

IMU CDU angles. 

60b 

CDUT 

See Optics Computations. 

61-63 

ADOT 

See Digital Autopilot RCS Routines. See also 
words II-I 3 above in this list (which are same 
cells ) . 


tele-18 


Word # 

Quantity 

Meaning 

Erasable Groun #2 

Words 64-90 are sampled as the telemetry 
interrupt for them is received. 

64 

0PTI0N1,2 

See Display Interface Routines. 

65 

T + 

et 

See Orbital Integration. 

66, 67a 

ERROR 

See Digital Autopilot RCS Routines. 

67b, 68 

THETADX 

See Digital Autopilot RCS Routines. Words 
66-68 also contain (single precision): 

VDTdl80, mVTdl80E,unreflected LCXd360, QAXERR, 
RAXERR, and Q7 (see Entry Computations for 
Q7 and Digital^Sutopilot Entry Routines for 
the others). 

69a 

CMDAPMOD 

See Digital Autopilot Entry Routines. 

69b 

PREL 

See Digital Autopilot Entry Routines. 

70a 

OREL 

See Digital Autopilot Entry Routines. 

70b 

RREL 

See Digital Autopilot Entry Routines. 

71-80 

UPBUFF 

See Uplink Processing (UPBUFF+O through 
UPBUFF+19) . See also words 21-30 above 
(same cells). 

81a 

LEMMASS 

See Digital Autopilot Interface Routines. 

81b 

CSMMASS 

See Digital Autopilot Interface Routines. 

82a 

DAPDATRl 

See Digital Autopilot Interface Routines. 

82b 

DAPDATR2 

See Digital Autopilot Interface Routines. 

83a 

ROLLTM 

See Digital Autopilot Entry Routines. 

83b 

ROLLC 

sp 

See Entry Computations. 

84a 

OPTMODES 

See Optics Computations. 

84b 

HOLDFLAG 

See Digital Autopilot Interface Routines. 

85-87 

WBODY 

See Digital Autopilot RCS Routines. Same 


cells used for commanded rates in TVC. They 
are also loaded with ASPSplMg (see Entry 
Computations) . 


88a REDOCTR See General Program Control. 


TELE-19 


Word # 

Quantity 

Meaning 

88b, 89 

THETAD 

Desired CDU angles (e.g. N22). Same cells for 
RDOTREF and VREF^p (see Entry Computations). 

90a 

IM0DES30 

See IMU Computations. 

90b 

IMODES33 

See IMU Computations. 

Channel Quantities 



Words 91-94 ai’e sampled as the telemetry 
interrupt for them is received. 


91a 

Channel 11 

Outputs . 

91b 

Channel 12 

Outputs . 

92a 

Channel 13 

Outputs . 

92b 

Channel I4 

Outputs . 

93a 

Channel 30 

Inputs . 

93b 

Channel 31 

Inputs . 

94a 

Channel 32 

Inputs . 

94b 

Channel 33 

Inputs . 

Erasable Group #3 

Words 95-100 are sampled as the telemetry 
interrupt for them is received. 

95 

RSBBQ^p 

See General Program Control. 

96a 

Channel 76 

Not meaningful. 

96b 

Channel 77 

Hardware restart information. 

97a 

C3IFLWRD 

See Digital Autopilot RCS Routines. 

97b, 98 

FAILRBG 

FAIIREG+0 to FAILREG+2 (see General Program 
Control) . 

99a 

FLGWRDIO 

Program control flag word. 

99b 

FLGWRDll 

Program control flag word. 

100a 

GAMMAEI 

See Display Computations. Same cell used for 
PREDANG (see Entry Computations ) > and GAMMAL. 

100b 

JJ 

Loaded with RTGO (see Display Computations) 

sp 

JJ itself is in Entry Computations. 


TELE-20 


Rev. 0 


Rendezvous and Prethmst List 


This list, with starting address of "CMRENDDL", is selected for 
DNLSTCOD =2. It is used in P20, P21, P23, P29, P30, P 3 I, P32, P 33 , P 34 , 
P35, P 36 , P37, P72, P73, P74, P75, P76, P77, and P79 (and "P 8 l" - "P 86 "). 


Word # 

Quantity 

Meaning 

List Identification 


la 

77775g 

Identification of list (-2). 

lb 

77340g 

Special synchronization bits. 

Snapshot Group #1 

Words 2-8 are all sampled at the same telemetry- 
interrupt time, with words 3-8 stored in 
DNTMBUFF for subsequent transmission. 

2-4 

R 

Position state vector. 

5-7 

V 

Velocity state vector. 

8 

'^pptm 

State vector time. 

Snapshot 

Group #2 

Words 9-13 are all saii 5 )led at the same 
telemetry interrupt time, with words IO-I 3 
stored in DNTMBUFF for subsequent transmission. 

9,10a 

CDU 

IMU CDU angles. 

10b 

CDUT 

See Optics Computations . 

11-13 

ADOT 

See Digital Autopilot RCS Routines (same 
cell used for e.g. TVC DAP observed rates). 

Erasable 

Group #1 

Words 14-44 are sampled as the telemetry 
interrupt for them is received. 

14 , 15 a 

AK 

See Digital Autopilot Interface Routines. 

15b 

RCSFLAGS 

See Digital Autopilot Interface Routines. 

16 , 17 a 

THETADX 

See Digital Autopilot RCS Routines. 

17b 

DELCDUX 

sp 

See Attitude Maneuvers. 


TELE-21 


Rev. 0 


Word # 

Quantity 

Meaning 

18 

T. 

ig 

Ignition time ( or predicted cutoff time ) . 

19 

DELLT4 

See Rendezvoiis Computations . 

20-22 

-^arg 

See Rendezvous Computations. 

23 

VHFTIME 

See Measurement Incorporation. 

24-27a 

MARKDOWN 

Cells MARKDOWN+0 to MARKDOWN+6 (see Measiirement 
Incorporation) . 

27b 

RM 

See Measurement Incorporation. 

28a 

VHFCNT 

See Measurement Incorporation. 

28b 

TRKMKCNT 

See Measurement Incorporation. 

29 

T4. • 
tpi 

See Rendezvous Computations . 

30a 

ECSTEER 

See Burn Control. 

30b 

DVTOTAL 

sp 

See General Program Control (cell also used 
for attitude maneuver matrix elements). 

31 

DELVTPF 

See Burn Control. 

32 

T 

cdh 

See Rendezvous Computations. 

33 

T . 

CSl 

See Rendezvous Computations . 

34 

'^pass4 

See Burn Control. 

35-37 

DELVLVC 

See Burn Control. 

38 

RANGE 

See Display Computations. Same cell used for 
RHOSB (Display Computations) and WWPOS (see 
Measurement Incorporation) . 

39 

RRATE 

See Display Computations. Same cell used 
for GAMMASB (Display Computations) and 

WWVEL (see Measurement Incorporation). 

40-44 

FLAGWRDO- 

FLAGWRD9 

Program control flag -words. 

Display Table Group 



Words 45-50 are sampled as the telemetry- 
interrupt for them is received. 


TELE-22 


Word # 

Quantity 

Meaning 

45-50 

DSPTABtO- 

DSPTA&fll 

"Display table" information. See Data 
Input/Output . 

Computer Clock 




Word 51 is sampled when the telemetry 
interrupt for it is received. 

51 

T 

now 

Present value of computer clock (TIME2,TIMEl) . 

Snapshot Group #3 




Words 52-58 are all sampled at the same 
telemetry interrupt time, with words 53-58 
stored in DNTMBUFF for subsequent transmission. 

52-54 

-other 

See Orbital Integration. 

55-57 

-other 

See Orbital Integration. 

58 

T 

etlm 

See Orbital Integration. 

Snapshot Group #U 




Words 59-63 are all sampled at the same 
telemetry interrupt time, with words 6 O -63 
stored in DNTMBUFF for subsequent transmission. 

59,60a 

CDU 

IMU CDU angles. 

60b 

CDUT 

See Optics Computations . 

61-63 

ADOT 

See Digital Autopilot RCS Routines. 

Erasable Group #2 




Words 64-90 are sampled as the telemetry 
interrupt for them is received. 

64 

0PTI0N1,2 

See Display Interface Routines. 

65 

T 4. 
et 

See Orbital Integration. 

66 , 67 a 

THETADX 

See Digital Autopilot RCS Routines. 

67 b 

DELCDUX 

sp 

See Attitude Maneuvers. 

68 

RSBBQ, 

^dp 

See General Program Control. 

69 a 

Channel 76 

Not meaningful. 

69b 

Channel 77 

Hardware restart information. 

70a 

C 3 IFLWRD 

See Digital Autopilot RCS Routines. 


TELE-23 


Rev. 0 


Word # 

Quantity 

Meaning 

70b, 71 

FAILREG 

FAILREG+0 to FAILREG+2 (see General Frogram 
Control) . 

72a 

CDUS 

See Optics Computations . 

72b, 73 

FIFA 

See IMU Computations. 

74 

DIFFALT 

See Rendezvous Computations . 

75 

CENTANG 

See Burn Control. 

76 

Spare 

76 a = 0; 76 b = accmulator when interrupt. 

77-79 

DELVEET2, 

See Rendezvo\xs Computations. 

80a 

OFTMODES 

See Optics Computations. 

80b 

HOLDFLAG 

See Digital Autopilot Interface Routines. 

81a 

LEMMASS 

See Digital Autopilot Interface Routines. 

81b 

CSMMASS 

See Digital Autopilot Interface Routines. 

82a 

DAFDATRl 

See Digital Autopilot Interface Routines. 

82b 

DAFDATR2 

See Digital Autopilot Interface Routines. 

83,84a 

ERROR 

See Digital Autopilot RCS Routines. 

84b 

THETADX 

See Digital Autopilot RCS Routines. 

85-87 

WBODI 

See Digital Autopilot RCS Routines (same cells 
used for commanded rates in TVC). 

88a 

REDOCTR 

See General Frogram Control. 

88b, 89 

THETAD 

Desired CDU angles (e.g. N22) . 

90 a 

IM0DES30 

See IMU Computations. 

90b 

IM0DES33 

See IMU Computations. 

Channel Quantities 

Words 91-94 are sampled as the telemetry- 
interrupt for them is received. 

91a 

Channel 11 

Outputs . 

91b 

Channel 12 

Outputs . 


TELE-24 


Rev. 0 


Word # 

Quantity 

Meaning 

92a 

Channel 13 

Outputs . . 

92b 

Channel 14 

Outputs . 

93a 

Channel 30 

Inputs . 

93b 

Channel 31 

Inputs . 

94a 

Channel 32 

Inputs . 

94b 

Channel 33 

Inputs . 

Erasable Group 

Words 95-100 are sampled as the telemetry- 
interrupt for them is received. 

95 

RTHETA 

See Display Computations. Same cell is 
used for WWOPT (see Measurement Incorporation) 

96 

lATSPL 

See Display Computations (or Return to Earth). 

97 

LNGSPL 

See Display Computations (or Return to Earth). 

98 

VPRED 

See Display Computations (or Return to Earth). 

99 

GAMMAEI 

See Display Computations (or Return to Earth). 

100a 

FLGWRDIO 

Program control flag word. 

100b 

FLGWRDll 

Program control flag word. 


TELE-25 


Rev. 0 



Powered List 


This list, with starting address of "CMPOWEDL", is selected for 
DNLSTCOD =3. It is used in Pll, P15, P40, P 4 I, P47, and P 6 I. 


Word # 

Quantity 

Meaning 

List Identification 


la 

77774g 

Identification of list (-3). 

lb 

77340g 

Special synchronization bits. 

Snapshot Group #1 




Words 2-8 are all sampled at the same 
telemetry interrupt time, with words 3-S 
stored in DNTMBUFF for subsequent transmission. 

2-4 

R 

Position state vector. 

5-7 

V 

Velocity state vector. 

8 

'^pptm 

State vector time . 

Snapshot Group #2 




Words 9 -I 3 are all sampled at the same 
telemetry interrupt time, with words 10-13 
stored in DNTMBUFF for subsequent transmission. 

9,10a 

^ CDU 

IMU CDU angles. 

10b 

CDUT 

See Optics Computations. 

11-13 

ADOT 

See Digital Autopilot RCS Routines. Same 
cells are used for OMEGAB (see Digital 
Autopilot TVC Routines) . 

Erasable Group #1 




Wo3?ds 14-44 are sampled as the telemetry 
interrupt for them is received. 

14 , 15 a 

AK 

See Digital Autopilot Interface Routines. 

15b 

RCSFLAGS 

See Digital Autopilot Interface Routines. 

16 , 17 a 

THETADX 

See Digital Autopilot RCS Routines. 

17b 

DELCDUX 

sp 

See Attitude Maneuvers. 


tele-26 


Rev. 0 


Word # 

Qiiantity 

Meaning 

18 

T. 

ig 

Ignition time (or predicted cutoff time). 

19 

DELLT4 

See Rendezvous Computations. 

20-22 

^arg 

See Rendezvous Computations. 

23 

T 

go 

See Steering Computations . Should not be 
confused -vd-th T, (Bum Computations) of 

N40 etc . 

24 

T 

pptml 

See BDJ Computations. 

25-27 

DELV 

Sampled accelerometer output (if least 
significant half zero, is uncompensated; 
otheivrise is compensa-bed data) . 

28a 

PACTOFF 

See Digital Autopilot TVC Routines. 

28b 

YACTOFF 

See Digital Autopilot TVC Routines. 

29a 

PCMD 

See Digital Autopilot TVC Routines. 

29b 

YCMD 

See Digital Autopilot TVC Routines. 

30 

CSTEER 

See Steering Computations (30b = O) . 

31-33 

DELVEETl 

See Rendezvous Computations . 

34-36 

REFSMMATq 

First row of {reFSMMAt] . 

37-39 

REFSMMAT^ 

Second row of^EFSMMATj . 

40-44 

FLAGWRDO- 

FLAGWRD9 

Program control flag words. 


Display Table Group 

Words k5~50 are sampled as the telemetry- 
interrupt for them is received. 

45-50 DSPTABiO- "Display table" information. See Data 

DSPTADtll Input /Output. 


TELE-27 



Word # Quantity 


Meaning 


Computer Clock 


51 

T 

now 

Snapshot Group #3 

52-54 

—other 

55-57 

—other 

58 

T 

etlm 


Snapshot Group 


59 , 60 a 

CDU 

60 b 

CDUT 

61-63 

ADOT 

Erasable Group #2 


64,65a 

AK 

65b 

RCSFLAGS 

66,67a 

THETADX 

67b 

DELCDUX 

sp 

68 

RSBBQ,^ 

dp 

69a 

Channel 76 

69b 

Channel 77 

70a 

C3IFLWRD 


Word 51 is sampled when the telemetry- 
interrupt for it is received. 

Present value of computer clock (TIME 2 ,TIMEl) . 


Words 52 - 5 S are all sampled at the same 
telemetry interrupt time, with words 53-58 
stored in DNTMBUFF for subsequent transmission. 

See Orbital Integration. 

See Orbital Integration. 

See Orbital Integration. 


Words 59-63 are all sampled at the same 
telemetry interrupt time, -with words 6O-63 
stored in DNTMBUFF for subsequent transmission. 

IMU CDU angles. 

See Optics Computations . 

See Digital Autopilot RCS Routines. Same 
cells are used for OMEGAB (see Digital 
Autopilot TVC Routines). 


Words 64-90 are sampled as the telemetry 
interrupt for them is received. 

See Digital Autopilot Interface Routines. 

See Digital Autopilot Interface Routines. 

See Digital Autopilot RCS Routines. 

See Attitude Maneuvers. 

See General Program Control. 

Not meaningful. 

Hardware restart information. 

See Digital Autopilot RCS Routines. 


TELE -28 


Rev. 0 


Word # 

Quantity 

Meaning 

70b, 71 

FAILREG 

FAIIREG+0 to FAILREG+2 (see General Program 
Control) . 

72a 

CDUS 

See Optics Computations. 

72b, 73 

PIPA 

See IMU Computations. 

74 

ELEV 

See Rendezvous Computations. 

75 

CENTANG 

See Burn Control. 

76 

Spare 

76a = 0; 76b = accijmulator when interrupt. 

77a 

FLGWRDIO 

Program control flag word. 

77b 

FLGWRDll 

Program control flag word. 

78 

T ^ 

evt 

Event (e.g. liftoff or engine on/off) time. 

79a 

PCMD 

See Digital Autopilot TVC Routines. 

79b 

YCMD 

See Digital Autopilot TVC Routines. 

80a 

OPTMODES 

See Optics Computations . 

80b 

HOLDFLAG 

See Digital Autopilot Interface Routines. 

8la 

LEMMASS 

See Digital Autopilot Interface Routines. 

81b 

CSMMASS 

See Digital Autopilot Interface Routines. 

82a 

DAPDATRl 

See Digital Autopilot Interface Routines. 

82b 

DAPDATR2 

See Digital Autopilot Interface Routines. 

83,84a 

ERROR 

See Digital Autopilot RCS Routines. 

84b 

THETADX 

See Digital Autopilot RCS Routines. 

85-87 

WBODY 

See Digital Autopilot RCS Routines. Same 
cells used for OMEGAC (see Digital Autopilot 
TVC Routines). 

88a 

REDOCTR 

See General Program Control. 

88b, 89 

THETAO 

Desired CDU angles (e.g. N22) . 

90a 

IM0DES30 

See IMU Computations. 

90b 

IMODES33 

See IMU Computations. 


TELE-29 


Rev. 0 



Word # 

Quantity 

Meaning 

Channel Quantities 

Words 91-94 are sampled as the telemetry- 
interrupt for them is received. 

91a 

Channel 11 

Outputs . 

91b 

Channel 12 

Outputs . 

92 a 

Channel 13 

Outputs . 

92b 

Channel 14 

Outputs . 

93a 

Channel 30 

Inputs . 

93b 

Channel 31 

Inputs . 

94a 

Channel 32 

Inputs . 

94b 

Channel 33 

Inputs . 


Erasable Group #3 

Words 95-100 are sampled as the telemetry- 
interrupt for them is received. 

95-97 7 , . See Bxirn Control. Word 96 is also VMAGI and 

® word 97 VGTLI (see Boost Computations). 

98-100 DELVEET2 See Rendezvous Computations . 


TELE-30 


Rev. 0 


Program 22 List 


This list, with starting address of "CMPG22DL", is selected 
for DNLSTCOD = 4« It is vised in P22 and P24. 


Word # 

Quantity 

Meaning 

List Identification 


la 

77773g 

Identification of list ( -4) . 

lb 

77340g 

Special synchronization bits. 

Snapshot Group #1 




Words 2-8 are all sampled at the same 
telemetry interinipt time, with words 3-8 
stored in DNTMBUFF for subsequent transmission. 

2-4 

R 

Position state vector. 

5-7 

V 

Velocity state vector. 

8 

T 4. 

pptm 

State vector time. 

Snapshot Group #2 




Words 9-13 are all sampled at the same 
telemetry Interrupt time, with words 10-13 
stored in DNTMBUFF for subsequent transmission. 

9,10a 

CDU 

IMU CDU angles. 

10b 

CDUT 

See Optics Computations. 

11-13 

ADOT 

See Digital Autopilot RCS Routines. 

Erasable Group #1 




Words 14-17 are sampled as the telemetry 
interrupt for them is received. 

14,15a 

AK 

See Digital Autopilot Interface Routines. 

15 b 

RCSFLAGS 

See Digital Autopilot Interface Routines. 

16,17a 

THETADX 

See Digital Autopilot RCS Routines. 

17b 

DELCDUX 

sp 

See Attitude Maneuvers. 


TELE-31 



Word # Quantity 


Meaning 


Snapshot Group #3 


Words 18-24 are all sampled at the same 
telemetry interrupt time, with words 19-24 
stored in DNTMBUFF for subsequent transmission. 

18-24 SVMRKDAT+0 - See Orbital and Rendezvous Navigation. Represents 
SVMRKDAT+13 data from two complete sets of marks. 

Snapshot Group #4 


Words 25-31 are all sampled at the same 
telemetry interrupt time, with words 26-31 
stored in DNTMBUFF for subsequent transmission. 

25~31 SVMRKDAT+14 — See Orbital and Rendezvous Navigation. Represents 
SVMRKDAT+27 data from two complete sets of marks. 

Snapshot Group j ^5 


32-35 SVMRKDAT +28 - 
SVMRKDAT+35 


Erasable Group #2 


Words 32-35 are all sampled at the same 
telemetry interrupt time, with words 33-35 
stored in DNTMBUFF for subsequent transmission. 

See Orbital and Rendezvous Navigation. Represents 
data from one complete set of marks. The final 
data point is in word 35 a, with 35 b not meaningful. 


Words 36-44 are sampled as the telemetry 
interrupt for them is received. 


36a 

LANDMARK 

See Orbital and Rendezvous Navigation. 

36b 

HORIZON 

See Measiarement Incorporation. 

37 

Spare 

37a = 0; 37b = accumulator when interrupt. 

38 

Spare 

38a = 0 ; 38b = accumulator when interrupt. 

39 

Spare 

39 a = 0 ; 39 b = accumulator when interrupt. 

40-44 

FLAGWRDO- 

FLAGWRD 9 

Program control flag words. 

Display Table Group 




Words 45-50 are sampled as the telemetry 
interrupt for them is received. 

45-50 

DSPTABfO- 

DSPTAB +11 

"Display table" information. See Data 
Input/Output. 
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Meaning 


Word # Quantity 
Computer Clock 

Word 51 is sampled when the telemetry- 
interrupt for it is received. 

51 '^now Present value of computer clock (TIME2,TIMEl) . 

Snapshot Group #6 

Words 52-54 are all sampled at the same 
telemetry interrupt time, with words 53-54 
stored in DNTMBUFF for subsequent transmission. 


52 

lAT 

See 

Coordinate 

Transformations . 

53 

LONG 

See 

Coordinate 

Transformations . 

54 

ALT 

See 

Coordinate 

Transformations . 

55 

Spare 

55a 

= 0; 55b = 

accumvilator when interrupt. 

56 

Spare 

56a 

= 0; 56b = 

accumulator when interrupt. 

57 

Spare 

57a 

= Oj 57b = 

accumulator when interrupt. 

5S 

Spare 

58a 

= Oj 58b = 

accimiulator when interrupt. 


Snapshot Group #7 

Words 59-63 are all sampled at the same 
telemetry interrupt time, -with words 6O-63 
stored in DNTMBUFF for subsequent transmission. 


59,60a 

CDU 

IMU CDU angles. 

60b 

CDUT 

See Optics Computations. 

61-63 

ADOT 

See Digital Autopilot RCS Routines. 

Erasable Group #3 

Words 64-90 are sampled as the telemetry 
interrupt for them is received. 

64 

0PTI0N1,2 

See Display Interface Routines. 

65 

T 4. 

et 

See Orbital Integration. 

66,67a 

THETADX 

See Digital Autopilot RCS Routines. 

67b 

DELCDUX 

sp 

See Attitude Maneuvers. 

68 

RSBBQ, 

dp 

See General Program Control. 

69a 

Channel 76 

Not meaningful. 
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Word # 

Quantity 

Meaning 

69b 

Channel 77 

Hardware restart information. 

70a 

C31FLWRD 

See Digital Autopilot RCS Routines. 

70b, 71 

FAILRBG 

FAILRBG+0 to FAILREG+2 (see General Program 
Control) . 

72a 

CDUS 

See Optics Computations. 

72b, 73 

PIPA 

See IMU Computations. 

74a 

NUM8M 

See Orbital and Rendezvous Navigation. 

74b 

S22L0C 

See Orbital and Rendezvous Navigation. 

75a 

FLCWRDIO 

Program control flag word. 

75b 

FLCWRDll 

Program control flag word. 

76-7S 

RLS 

See Coordinate Transformations. 

79 

Spare 

79^ — 0 ; 79b = accumulator when interrupt. 

80a 

OPTMODES 

See Optics Computations. 

80b 

HOLDFLAG 

See Digital Autopilot Interface Routines. 

81a 

LEMMASS 

See Digital Autopilot Interface Routines. 

81b 

CSMMASS 

See Digital Autopilot Interface Routines . 

82a 

DAPDATRl 

See Digital Autopilot Interface Routines. 

82b 

DAPDATR2 

See Digital Autopilot Interface Routines. 

83,84a 

ERROR 

See Digital Autopilot RCS Routines. 

84b 

THETADX 

See Digital Autopilot RCS Routines. 

S5-87 

WBODY 

See Digital Autopilot RCS Routines. 

88a 

REDOCTR 

See General Program Control. 

88b, 89 

THETAD 

Desired CDU angles (e.g. N22) . 

90a 

IM0DES30 

See IMU Computations. 

90b 

IMODES33 

See IMU Computations. 

Channel Quantities 

Words 91-94 are sampled as the telemetry 
interrupt for them is received. 

91a 

Channel 11 

Outputs . 
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Rev. 0 


Word # 

Quantity 

Meaning 

91b 

Channel 12 

Outputs . 

92a 

Channel 13 

Outputs . 

92b 

Channel 14 

Outputs . 

93a 

Channel 30 

Inputs . 

93b 

Channel 31 

Inputs . 

94a 

Channel 32 

Inputs . 

94b 

Channel 33 

Inputs . 

95-100 

Spare 

For all 6 words, the "a" part is 0 and the 


"b" part is accumiilator vrtien Interrupt. 
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Special Erasable Memory Dump List 


Input of a V7AE causes DNTMIOTO to be switched so as to start 
at the next telemetry interrupt the transmission of a "dump" of the 
erasable memory (all cells are sent sequentially for two times, i.e. 
two complete passes through the erasable memory) . The erasable memory 
hardware is divided into eight "banks" of 256 cells each, and a 
similar division is made for downlinking of information: the first two 
words are used for control data, and the next 128 contain the 256 
words in the particular bank set identified by the first two words. 

The format of the information is: 


Word # 

Quantity 

Meaning 

List Identification 


la 

01777g 

Identification of list. 

lb 

77340q 

Special synchronization bits. 

2a 

DUMPLOC 

See Telemetry (page TELE-7). 

2b 

TIMEl 

Least significant half of computer clock. 

Erasable Memory Bank 


3-130 

Cells in bank (addresses sent in consecutive increasing order) 


TELE-36 


Testing Routines 




) 



SELFCHK Address set as initial condition for SELFRET in "STARTSB2" 

Perform "SMODECHK" (will not return unless self -check is desired) 
Proceed to "ERASCHK" 

SMODECHK 

SKEEPl = Retiirn address 

Perform "CHECKNJ" (returns immediately if no new job waiting, 

and otherwise returns after doing job(s)) 

If SMODE = +0: 


Proceed to second line of "SMODECHK" 


If jSM0DE(£8: 

SCOUNT = SCOUNT + 1 

If SMODE = -0, proceed to address specified by SKEEPl 
If |SM0DE\= 1, 2, 3, 6, 7, or 8: (lOg = decimal 8) 

Proceed to address specified by SKEEPl 
If |SM0De1= 4, proceed to "ERASCHK" 

If I SMODE 1= 5, proceed to "ROPECHK" 

SMODE = 0 (magnitude exceeded 8) 

Proceed to "SELFCHK" 


PRERRORS 

If ERESTORE = 0, 

®SKEEP7 SKEEP5 
ERESTORE = 0 


proceed to 
dp 


"ERRORS" 


Proceed to "ERRORS" 


ERRORS 

Inhibit interrupts (released upon return from alarm routine) 
SFAIL = Return address (to routine calling "PRERRORS" or "EEIRORS") 
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ALMCADR = SFAIL 


ERCOUNT = ERCOUNT + 1 

Perform "ALARM2" (pattern 1102g) 

If SMODE = -0: 

Proceed to address specified by SFAIL 
If SMODE > 0: 

SMODE = +0 

Proceed to "SELFCHK" 

ERASCHK 

SKEEP2 - 1 (flag to check cells 0061 q - 13733 ) 

EBANK = 0 

SKEEP7 = 146lg (first cell in bank 0 to be checked, since cells 
0 - 60 g are "special” erasable cells) 

SKEEP3 = 1777g (last cell) 

Proceed to "ERASLOOP" 

ERASLOOP 

Inhibit interrupts 

SKEEP4 = EBANK (non-zero EBANK loads bits 11-9) 

SKEEP5|^p = EsKEEP 7^ (address also determined by EBANK) 

ERESTORE = SKEEP7 

%KEEP7 ~ SKEEP7 (loads with own S-register address) 

%KEEP7+1 "" SKEEP7 + 1 

^SKEEP7 ~ ^SKEEP7+1 ^ perform "PRERRORS" 

If ERESTORE ^ 0: 

%KEEP7^p - %KEEP7^p 

%KEEP7+1 ~ %KEEP7 ^ perform "PRERRORS" 

If ERESTORE 0: 

%KEEF7^p = SKEEP5,p 
ERESTORE = 0 


) 
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Release interrupts 
Perform "CHECKNJ" 

EBANK = bits 11-9 of SKEEP4 

SKEEP7 = SKEEP7 + 1 
If SKEEP3 - SKEEP7 + 0: 

Proceed to "ERASLOOP" 

If SKEEP2 > 0: 

SKEEP2 = SKEEP2 - 1 (sets O) 

SKEEP7 = 006lg (unsvatched erasable form of bank 0) 

SKEEP3 = 1373g (SKEEP4 - SKEEP7 not checked, cells 1374 - 7) 
Proceed to "ERASLOOP" 

SKEEP2 = 1 

EBANK = EBANK + 1, modiilo 8 (7 + 1 = 0) 

If EBANK = 2: 

SKEEP7 = 1400g 

SKEEP3 = 1773g (cells 1374-7 not checked) 

Proceed to "ERASLOOP" 

If EBANK 0: 

SKEEP7 = 1400 g 

SKEEP3 = 1777q 
P roceed to "ERASLOOP" 

EBANK = 3 

Read out cells from 0060g to OOlOg to check on their parity (addresses 
0007g - OOOOg have no parity bits), by a OS (Clear Subtract) order 

Check cycle and shifting registers; if difficulty, perform "PRERRORS" 

SCOUNT+1 = SCOUNI+1 + 1 

Perform "SMODECHK" 

Proceed to "ROPECHK" (if return from "SMODECHK") 
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ROFECHK 


SKEEP 6 

SKEEP4 

SKEEP7 

SKEEPl 

SKEEP3 

SKEEP5 ^ 

Proceed 

SHOWSUiyH-2 

SKEEP6 = 

SMODE = 

SELFRET 

Proceed 

COMADRS 


-0 

0 

1 

0 

0 

1 


(indicates "ROPECHK” option) 

(bank number) 

(counter for reading fixed -fixed banks) 

( sum) 

(address read) 

(counts two TC self words for end of bank data) 
to "COMADRS" 

Entered from "GOSHOSUM" for V91E 
= 1 (indicates "SHOWSUM" option) 

+0 

= "SELFCHK" 

to second line of "ROPECHK" 


SKEEP2 = E 


'SKEEPl SKEEPA (address determined by 2000g + SKEEP 3 
’ for S-register; bits 15-11 of SKEEP4 

for FRANK; bits 7-5 of SKEEP4 for FEXT) 


SKEEPl = SKEEPl + SKEEP2 

If ISKEEPlJ^ 16384: 

SKEEPl = SKEEPl - I 6383 sgn SKEEPl 

TS = (2000g + SKEEP 3 ) - SKEEP2 (zero if cell contains TC self 

order, since TC is op code "0") 


Proceed to "ADRSCHK" 


ADRSCHK 

If bits 10-1 of SKEEP 3 = 1777g, proceed to "SOPTION" (just read 

last bank cell) 

If SKEEP5 < 0 , proceed to "SOPTION" (just read cell following 

two TC self orders) 

If TS ^ 0, SKEEP5 = 1 

If TS = 0 , SKEEP5 = SKEEP5 - 1 (goes + 1 , + 0 , -l) 
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If SKEEP6 = -0: 


Perform "CHECKNJ" 

If SKEEP6> 0: 

Check NEWJOB cell for job of higher priority than present 
job (which has priority 30g from "KEYCOM"), and do 
that job if it exists, proceeding when present job 
again of highest priority. 

SKEEP3 = SKEEP3 + 1 

If SKEEP7 ^ +0, proceed to "COMDRS" 

Proceed to "FXADRS" 
mPRS 

SKEEP2 = (S-register contents determined by SKEEP3 only 

^ for fixed-fixed memory cell) 

SKEEPl = SKEEPl + SKEEP2 

If lSKEEP]|> 16384: 

SKEEPl = SKEEPl - I 6383 sgn SKEEPl 

TS = SKEEP3 - SKEEP2 

Proceed to "ADRSCHK" 

SOPTION 


TS = bits I 5 -II of SKEEP4, cycled left 5 places (puts FBANK 
information in bits 5-l) 

If bits 8-1 of SKEEP4 0: (reading super-bank cells, i.e.j^30g) 

TS = bits 3-1 of TS + (bits 8-2 of SKEEP4 shifted right 1 place) 
If SKEEP6 >0: 

SKEEP3 = SKEEP2 
SKEEP2 = TS 
MPAC+2 = "SKEEPl" 
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(If SKEEP6 > 0): 


TS == 0501^^ 

Proceed to "GOXDSPF”: if terminate, proceed 

if proceed, proceed to "NXTBNK” 
otherwise, proceed to second previous 
line (reload MPAC+2) 

SKEEPl = "SELFCHK” 

Proceed to "ENDEXT" 

SKEEPl = ISKEEPlj 

If SKEEPl - TS - 1 7^-1, perform "PRERRORS" 

Proceed to "NXTBNK" 

NXTBNK 

If SKEEPl = 

If SKEEP6 > 0, proceed to second line of "ROPECHK" 

Proceed to "SELFCHK" 

Increment bits lL-11 of SKEEP4 by 1 (FBANK scaling) 

If SKEEP4 overflows (i.e. previous value of these bits 17 q): 

SKEEP4 = 20g (in bits 15-11) 

If SKEEP4 bits 15-11= 0 (i.e. previous value 37g): 

SKEEP4 = SKEEP4 + 60020g (sets FBANK to 30g in bits 
15-11, and increments FEXT in bits 7-5) 

If SKEEP4 = 60000g: (bits 15-11 = 30g) 

SKEEP4 = 60060g (sets FEXT bits, 7-5, to 3) 

If SKEEP7 > 0: 

SKEEP7 = SKEEP7 - 1, limited > +0 
Proceed to fourth line of "ROPECHK" 

If SKEEP7 = +0: 

TS = 1 

Proceed to "FXFX" 
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n 


If 


SKEEP7 = -1: 


TS = +0 

Proceed to "FXFX" 

If SKEEP7 = -0: 

SKEEP7 = 64 (larger than nimber of remaining banks) 

Proceed to fourth line of "ROPECHK" 

FXFX 

SKEEP7 = - TS 
If TS 7 ^ 0: 

SKEEP 3 = O 4 OOO 3 (first cell in "bank 2") 

If TS = 0: 

SKEEP3 = 06000g (first cell in "bank 3") 

SKEEPl - 0 
SKEEP5 = 1 
Proceed to "FXADRS" 

IMJ Performance Testing 

The computations associated with the IMU performance testing 
(PO 7 ) have been partially removed from fixed memory. For continuity 
purposes, the following information on the computations formerly 
done at the start of PO? (based on the H2 flight program) is 
provided . 

1. Program display set to 07 . 

2. DRIFTT set 0. 
sp 

3 . GEOCOMPl set 0 (logic checking for this cell = 0 not shown). 

4 . LENGTHOT set to 89 S seconds. 

5 . ISECXTl and IdPIPADT set to one second interval. 

6. WANGI set to - cos WANGO set to sin 

) 7 . IMG coarse aligned to 0°. 

8. Computations progressed to "GEOIMUTT" . 
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GEOIMJTT 


Perform "IMJZERO" 

Perform "IMUSTALL" : if error return, proceed to "S0MERR2" 

otherwise , proceed 

NDXCTR = 0 

WANGT = 0 

Xa, = (1, 0, 0) 

^c *^azmth’ ^azmth^ 

Z, = (0, - cos C ,, , sin C ,, ) 

~dc azmth azmth 

Perform "CALCGA" (here if MODREG 3 , since should be 7) 

Perform "IMQCOARS" 

If bit 14(GL0KFAIL) of FLAGWRD3 = 1: 

NDXCTR = NDXCTR + 1 
Set bit 14(GL0KFAIL) of FLAGWRD3 = 0 

Perform "IMUSTALL": if error returri, proceed to "S0MERR2" 

otherwise , proceed 

If NDXCTR > 0: 

Proceed to "PIPACHK" 

Perform "IMUFINE" 

Perform "IMUSTALL" : if error return, proceed to "S0MERR2" 

otherwise , proceed 

Call "GOESTIMS '' in PERFDLAY^ centi-seconds 
d dp 

Put present job to sleep (starting address id = "ESTIMS^") 

GOESTIMS, 

d 

Awaken job with starting address id = "ESTIMS^" 

End of task (since WANGT = 0, "ONCEMORE" will go to "TORQUE") 
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n 


ESTIMS, 
a 


Inhibit interrupts 


GTSWTLTl = TIMEl 


PIPA = 0 


Release interrupts 


Zero erasable memory cells 5,1453 - 5,1570: Includes least 

significant half of DRIFT! , KGAINAZ, KGAINVRD, KGAINNSD, 

ANGX, ANGY, ANGZ, INTY, INTZ, DRIFTO, DRIFTI, VUUN , 

VLAUN , ACCWD , ACCWD , POSNV , POSNV , and ALTIM. ^ 
z’ y’ z’ y’ z' 

GCOMPSW = 0 



ALXIS = 144 
CMPXl = -1 
KGAINPIP = K 
KGAINERC = K 
GCOlff = 0 
DELV = 0 


soupyO 

soupy2 


Proceed to "SLEEPIE^" 

SLEEPIE^ 

d 


If WANGT > 0: 


Perform "EARTHR*" 

Perform "CHKCOMED" 

Inhibit interrupts 

TS = GTSWTLTl - TIMEl 
If TS> 0: 

TS = TS - 163.83 seconds (should be I 63 . 84 ) 
TS = TS + ISECXTl 



If TS ^0: 

TS = 0.04 seconds 

Call "ALLOOP, " in TS seconds 
d 
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Release interrupts 
End of job 


ALLOOP 


d 


GTSWTLTl = TIMEl 
TS = ALTIM 

Set restart grp. 5 to cause restart at next line 
If TS = +0: 

ALT IMS = +0 
ALTIM = -0 
If TS = -0: 

ALTIM = +0 

If TS *^0: (should not be positive non-zero) 

ALTIM = - ( |aLTIM| - l) (if was -1, result is -0) 

Set DELV^p = PIPA and PIPA = +0 (no special restart provisions) 
Set restart group 5 to cause restart at next line 
Establish "ALFLT^" (priority 22g) 

End of task 


ALFLT 


d 


TS = DELV 



DPIPAY = - TS 


y 


DPIPAZ = TS 


z 


If ALTIMS ^ 0: 


TS = 144 - ALXIS 


ALTIM = ALFDK, 


TS 


(for T seconds, set to -(T - 2)) 
(e.g. set to -l) 


ALTIMS = ALFDK, 


TS+l 


BUFTCPIP = ALFDK, 


■TS+2 



BUFTCERC = ALFDK, 


■TS+4 
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(If ALTIMS > 0): 


BUFSLPAZ = ALFDKig ^ ^ 

("a3") 


BUFSLPVRD = ALFDKi^g 

("a^") 


BUFSLPNSD = ALFDK^,,,- - 
iu 1 Xu 

("a^") 


ALXIS = ALXIS - 12 



INTY = INTY - K . DPIPAY 

(i.e. "po ' 
s 

south PIPA) 

DEIN^ = VLAUNy - INTY 

("AMi") 


INTZ = INTZ - Kptpasc DPIPAZ 

("po^", east PIPA) 

DEIM^ = K^eee VLAUN^ - INTZ 



KGAINPIP = BUFTCPIP KGAINPIP 

("Ki") 


KGAINERC = BUFTCERC KGAINERC 

("K 2 ") 


INTY = INTY + KGAINPIP DELM 

y 

("pOg") 

(tag "ADCIP") 

KGAINAZ - KGAINAZ + BUFSLPAZ 

("K 3 ") 


ANGX = ANGX + 4 KGAINAZ DED^ 

("alpha") 


VLAUNy = VLAUNy + K^^j^o DELM^ 



ANGZ = ANGZ + KGAINERC DELMy 

("gamma") 

(tag "AIKLP") 

KGAINVRD = KGAINVRD + BUFSLPVRD 

("K^") 



DRIFTO = DRIFTO + 4 KGAINVRD DELM 

5 

ACCWDy = ACCWDy + DEB^ 

INTZ = INTZ + KGAINPIP DELM 

z 

KGAIMSD = KGAIMSD + BUFSLPNSD 
DRIFTI = DRIFTI + 4 KGAINNSD DELM 

z 

VLAUN^ = VLAUN^ + K^skO ™z 
AMGY = ANGY + KGAINERC DELM 


("d ") 

X 

("POg") 

("d ") 

7 

("Vie") 


(tag "ALKLP") 


("Se") 


AMGY = ANGY + KGAINERC DELM^ ("beta") (tag "AIKLP") 

ACCTO^ = ACCWD, + 0, 

TS= [tbANSM^ (POSWy, TLAUNy, ACCWDy) (tag 
(POSNV , VLAUN ACCWD^J = TS 

TS = [transm^ (posnv^, vlaun^, accwd^) 
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(POSNV^, VLAUN^, ACGWDg) = TS 

SNANGi = sin (i = X,Y,Z) 

CSANGi cos ^georgj (i = X,Y,Z) 

Proceed to erasable memory cell 3400g (E7,1400) 


NOTE: Following coding was in earlier programs (S\jndisk) 
and is supplied for continviity purposes only . 

Fixed memory information is at "ONCEMORE" and onward, 


INTY = INTY + SNANGZ 
INTZ = INTZ + SNANGY CSANGZ 


("pOg") 

("pOg") 


WPLATO = DRIFTO - WANGO (CSANGY CSANGZ) - WANGI (SNANGX SNANGY + 
CSANGX CSANGY SNANGZ) 

WPLATI = WANGT WANGI + WANGO SNANGZ + DRIFTI - WANGI CSANGX CSANGZ 
WPLATT = DRIFTT - WANGO SNANGY CSANGZ + WANGI (SNANGX CSANGY - 
CSANGX SNANGY SNANGZ) 

TS - (WPLATO CSANGY + WPLATT SNANGY)/ CSANGZ 


WPLATi (i = 0,I,T) 
are x,y,z components 
of W 


— sm 


ANGX = ANGX + TS 

ANGY = ANGY + K , (WPLATI + TS SNANGZ) 
georgk 


ANGZ = ANGZ + K 


georgk 


(WPLATT CSANGY - WPLATO SNANGY) 


If overflow has taken place since start of job: 

Proceed to "SOMEERRR" 

NOTE: This ends coding taken from earlier programs (Sundisk);^ 

presumably the erasable coding now transfers to "ONCEMORE" 


ONCEMORE 


If LENGTHOT > 0: 

LENGTHOT = LENGTHOT - 1 

Proceed to "SLEEPIE^" 

d 

If WANGT > 0: 

L0SVC2 = CDU 

X 

0GC = [X^^ (-Kgeorgj) ^^2) 

TS = "OGC" 
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Perform "IMUPULSE" 


Perform "IMJSTALL" : if error return, proceed to "S0MERR2" 

othervd.se, proceed 

If WANGT> 0: 

Proceed to "VALMIS" 

ERVECTOR = K (sin C . - cos C , ,, O) 

- omegms atd’ atd’ ' 

T , = T 
mark now 

ERCOMP = 0 
Proceed to "TORQUE" 

SOMEERRR 

Perform "ALARM" (pattern l600g) 

Proceed to second line of "S0MERR2" 

TORQUE 

DSPTEM2 = 0 (forces R1 of N98 = 0) 

DSPTEM2fl = DRIFTI 

sp 

TS = POSITON - 1 

SOUTHDR^_ - DRIFTI 

TS sp 

Perform "SHOW" 

Proceed to "PIPACHK" 

PIPACHK 

Proceed to erasable memory cell 2000^ (E4,1400) 

VALMIS ^ 

DSPTEM2+1 = DRIFTO 

sp 

DSPTEM2+0 = 0 (forces R1 of N 98 = O) 

Perform "SHOW" 

Proceed to second line of "S0MERR2" 
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SHOW 


DSPTEM 2+2 = POSITON 
TS = 0698 

vn 

Proceed to "GOFIASH" : if terminate, proceed to 2 nd line of "S 0 MERR 2 " 

if proceed, proceed 
otherwise, proceed to "SHOW” 


Return 


) 
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Quantities in Computations 

See also list of major variables and list of routines 


IdPIPADT: See IMU Computations. 

ISECXTl; See Prela\jnch Alignment (set to 1 second for gyro drift 
determination) . 

ACCWD , ACCWD ; Value of "horizontal acceleration of laiinch vehicle" 

^due to sway) in north-south and east-west directions respectively, 
scale factor B9, units cm/sec'^. 

ALFDK^: Table of erasable memory quantities used in "ALFLT^" to update 
values of parameters to be used for filtering in gyro^drift 
computations. The table consists of five double precision constants, 
one single precision constant (the setting for ALTIM), and a reset 
value of ALTIMS (which could be e.g. -1 for all tables). Values 
must be initialized by an erasable memory load (with the first value 
at "ALFDK", octal cell 2022^.), with settings for ALTIM, ALTIMS, 
BUFTCPIP, BUFTCERC, BUFSLPAZ, BUFSLPVRD, and BUFSLPNSD stored in 
that order (first two single precision, remainder double precision). 
Scale factor of first two assumed B14, and the remainder assumed 
BO, in this writeup. See below for "typical" values (obtained from 
Sundisk program, when information was in fixed memory) . 

ALMCADR: See General Program Control. 

ALTIM: Single precision value of time remaining prior to change in 

filter constants for drift measurements, scale factor B14, units 
seconds. To cause a set of gains to be used for T seconds, ALTIM 
is set to - (T - 2) . 

ALTIMS: Single precision flag cell set to 0 when a gain change should be 
made (see ALTIM), and then reset (e.g. to -l) when the gain change 
has been done, scale factor BI4. 

ALXIS: Single precision cell, scale factor BI4, used to control selection 
of values from ALFDK^ erasable memory table (set to 144 in "ESTIMS^") 

ANGX, ANGY, ANGZ: Values of determined angle changes about vertical, 

south, and east axes respectively, scale factor BO, units revolutions 
they are "azimuth alignment angle" , "south axis leveling angle", and 
"east axis leveling angle" respectively (alpha, beta, gamma in 
official equation documentation). 

BUFSLPAZ, BUFSLPNSD, BUFSLPVRD: Set of buffer cells used to contain 
the values of the slopes of the gains for azimuth angle, north- 
south drift, and vertical drift respectively, scale factor BO, read 
from ALFDK table set. Cells are ALDK+4, ALDK+B, and ALDK+6 
respectively. 

BUFTCERC, BUFTCPIP: Set of buffer cells used to contain the values of 
the "time constants" for the erection angles ("east axis leveling 
angle" and PIPA outputs, scale factor BO, as read from ALFIK table 
set. Cells are ALDK+2 and ALDK. 
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c X.: 
atd 


See Prelaunch Alignment. 


C 


azmth ■ 


See Prelaunch Alignment. 


CMPXl: Single precision cell, scale factor B14, used to set proper 

contents of index register XI to permit use of an index loop (Xl 
is set successively to + l) to perform calculations in "ALFLT^": 
use of the cell is not shovm in this writeup. 

CSANGi (i =X,Y,Z): Values of cosine of ANGX, ANGY, and ANGZ, scale 
factor Bl, stored in push-down list locations 16D, 18D, and 20D 
respectively. 


DEIM , DELM : Value of measurement quantity in south and easterly 
^directions used in drift test, scale factor B-2, units radians. 


DPIPAY, DPIPAZ: See Prelaunch Alignment. 


DRIFTI; Value of gyro drift measurement output displayed in "TORQUE", 

scale factor (assumed) BO, units "radians", giving the "south gyro 
drift" . 


DRIFTO: Value of gyro drift measurement output displayed in "VALMIS", 
scale factor (assumed) BO, units "radians", giving the "vertical 
gyro drift" . 


DRIFTT: Input "drift" to gyro drift determination routine (to separate 
"east gyro drift" from "azimuth error"), scale factor BO, units 
radians. It has only its most significant half loaded by calling 
routines, with the least significant half set 0 . 

EBANK: See Data Input/Output. 

ERCOiyP: See Prelaunch Alignment. 

ERCOUNT: Single precision cell, scale factor BIA, used to count the 

nximber of errors encountered in the self -check routine. The cell 
is initialized to 0 as part of a verb 36 fresh start, and may be 
read as the third component of noun 08. 

ERESTORE: Single precision cell, initialized to 0 as part of a fresh 
start, used for control purposes in functions associated with 
the erasable memory checking ("ERASLOOP") portion of the self- 
check program. It is set to the S-register portion of the lower 
of the two erasable memory cells being checked (the same as SKEEP?) 
before these cells are altered. If a restart is encountered, 
the "GOPROG" routine checks that bits 15-11 of the word are 
zero (i.e. it is less than 2000 g, as required for erasable memory 
cells), and that it is equal to SKEEP7 (assuming, of course, the 
word in non-zero). Both conditions must be satisfied before SKEEP4 
(for EBANK) and SKEEP7 address information are used to restore 
the cells; if one is not, then a fresh start is performed. Since 


) 
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the ERESTORE cell (address 1360g) is subject to erasable memory- 
cell checks, -vdien it does not necessarily contain the same data 
as SKEEP7, a fresh start may be forced even though .SKEEP4 and 
SKEEP7 (neither of these cells are used for change purposes in 
the erasable memory check routine, since upper limit is 1373 q) 
is sufficient to permit restoration of erasable memory contents. 

ERVECTOR: See Prelaunch Alignment. 

FRANK : Hardware register cell (address 0004rt) used to contain the fixed 
memory bank number (if in range 30;* - 37 a., FEXT is also used). See 
3420.5-27 for details (only bits 15-11 are used). 

FEXT; Computer hardware channel (channel 07, also referred to as 

SUPERBNK) used to select the appropria-te fixed -memory bank for 
FRANK settings of 30g or more. Only bits 7-5 are used, -with a 
setting of 3 selecting banks 3i; a setting of 4 selecting 
banks 4i (bank 43 is the last one in the computer) . See 
3420.5-27 for details. 

GCOMP: See IMU Computations. 

GCOMPSW: See IMU Computations. 

GEOCOMPl: See Prelavinch Alignment. Set to -+0 to indicate gyro drift 
measurement, but this logic not shown in this writeup. Instead, 
the zero-value case is in this -writeup and the non-zero case in 
Prela-unch Alignment. 

GTSWTLTl: See Prelaunch Alignment. 

INTY, INTZ: Value of filtered accelerometer output (corrected for vehicle 

sway etc.) used in gyro drift test, scale factor B-2, units radians. 

Could also be considered to be "south" and "east" velocity increments 

expressed in units of g's (see K . ). 

^ pipasc 

K , Constant, program notation "ALSK", scale factor B12, value 
0.17329931. Value corresponds to 0.7240233^ x 980.402 x 2-12^ 
where first term is "wind-induced sway velocity gain" (official 
equation documentation notation "K~"), second converts DELM to 
units of cm/sec (i.e. units of VLAUN, cf. K . ), and third 

term is scale factor. pipasc 

K , Constant, program notation "ALSK +2", scale factor B12, value 
-0. 0083 53 70. Value corresponds to 0.03490074 x (-1) x 980. 402 
X 2“-^2^ where first term is "-wind-induced sway accelerometer gain" 
(official eq\iation documentation notation "Kg"), second is an 
equation factor, third converts to vinits of cm/sec^ (cf. K . ), 

and fourth term is scale factor. pipasc 
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K . : Constant, program notation "GEORGEJ", scale factor B-2, value 
° 0.63661977. Value corresponds to (l/2Tr) x 2^, to convert 

between radians and revolutions (the interpretive language trig 
functions require angle measurements in revolutions). 


K , ; Constant formerly incorporated in fixed memory for use in IMU 
georgK calibration computations. Value was 0. 59737013, scale factor 
B-I3. This corresponded to about 7.2921158E-5 x 2 ^^, where first 
term is earth rate in rad/sec (period of about 86164.O912 seconds), 


K : See Prelaunch Alignment, 

omegms 

K . : Constant, program notation "PIPASC", scale factor B-7, value 

P^PascQ^yb376833 . Value corresponds to 5.^5 x (I/98O.402) x 2', 

where first term is nominal accelerometer scale factor (cm/sec per 
count), second is normalization factor (acceleration due to gravity), 
and third is scale factor. For convenience in description, a fourth 
factor of "l/second" has been assimied reflected in this constant, 
giving for units of resxilt (in INTY etc.) "radians". 


K Constant, program notation "SOUPLY", scale factor BO, used in 

soupyO hestIMS^" to initialize KGAINPIP. Value is 0.93505870. 
d 


K Constant, program notation "SOUPLY +2", scale factor B2, 

soupy2 in "ESTIMS," to initialize KGAINERC. Value is 

0.26266423, corresponding to a "true value" of about I.O5065692. 

K ,, , : Single precision constant, program notation "LSTBNKCH", octal 
® value 66lOOrt, corresponding to an FBANK value (bits 15-11) of 
33* FEKT value (bits 7-5) of 4, i.e. a final "bank" readout 

of Dank 43gj the final computer hardware fixed memory bank. 

K : Constant, program notation "VELSC", scale factor B-9, value 
vesc _o. 52223476. Value corresponds to (-1) x (I/98O.4O2) x 2^, where 
first term is an equation factor, second converts for acceleration 
due to gravity (cf. K . ), and third is scale factor. 


KGAINAZ, KGAINERC, KGAINNSD, KGAINPIP, KGAINVRD: Values of gains updated 
each cycle in gyro drift deteraiination computations. KGAINERC and 
KGAINPIP are initialized to non-zero values in "ESTIMS^" and 
multiplied by "time constants" for "erection angles" and "PIPA 
outputs" respectively, with scale factors due to initialization 
of B2 (KGAINERC) and BO. The others (KGAINAZ, KGAINNSD, and 
KGAINVRD) are initialized to 0 values in "ESTIMS,", and are 
incremented each cycle to achieve varying gains for "azimuth 
angle", "north-south drift", and "vertical drift" respectively: 
all are considered to have scale factor BO (see ALFDK). Program 
notation for the quantities is ALK+4> AEK+2, ALK+8, ALK+0, and 
ALK+6 respectively. 


LENGTHOT: Single precision cell, scale factor BI4, used to contain time 

duration information. Initialization must be done as part of erasable 
memory pre-load (in Prelaunch Alignment is initialized by coding) . 


L0SVC2: Single precision cell, program notation "LOSVEC +1", scale factor 
B-1, units revolutions, loaded with CDU^ in "ONCEMORE" . 
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NDXCTR: Single precision cell, scale factor B14, initialized to 0 in 
"GEOmUTT" and incremented to 1 for a "gimbal lock" return from 
"CALCGA" (angle of 60° or more). 

NEWJOB: See General Program Control. 

CXjC : See Coordinate Transformations (used also as commimication cell) . 

PERFDLAY: See Prelaunch Alignment (for gyro drift test, must be set 
manually to some value ) . 

PIPA: See IMU Computations. 

POSITON: Single precision cell, scale factor B14, used for Indexing and 
display purposes (used in previous programs to select desired stable 
member orientation from fixed memory information) . Must be loaded 
manually (inputs in "SHOW" do not change it). 

POSNV^, POSNV^: Values of "horizontal displacement of laimch vehicle" 

in south and east directions respectively, assumed scale factor 
B9, units cm ("assumed" since scaling of [tRANSM^ elements not 
knovm, but treated as Bl) . 

SCOUNT, SCOUNT+1: Pair of single precision counters, scale factor BI4, 
used to count the number of executions of portions of the self- 
check program. SCOUNT is incremented each time "SMODECHK" is 
entered with SMODE ^ +0 and with magnitude below 9; SCOUNT+1 is 
incremented each time "ERASLOOP" is completed (at the end of the 
test). Both quantities are modulo 2 ^, and would have to be 
Initialized man\ially since they are not preset as part of a 
fresh start (V36E), if a "true count" were desired. A value of 
SCOUNT = 3 (if set 0 before SMODE made e.g. l) means that the 
self -test erasable and fixed memory checks have been completed. 
Addresses are 1366g and 136?^ respectively. 

SELFRET: See General Program Control. 

SFAIL: Single precision cell used in "ERRORS" routine to retain return 
address information (and hence data on the cause of the self -check 
difficulty) . Contains the same information as ALMCADR if no 
subsequent alarms (from sources other than self -check) are 
generated; it is not preset 0 by program unless error reset input. 

SKEEPl: Self -check register #1, used to retain return address information 
from "SMODECHK" and the value of the bank sum while being formed. 

If the "SHOWSUM" option (V91E) is used, it contains the value of 
the sum as displayed in R1 (can be either + or -, and if + should 
be equal to the bank number; if minus should be the complement of 
the bank nimiber) . If self -check memory verification is done, is 
replaced by the magnitude of the simi before checking against the 
bank number. 
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SKEEP2: Self-check register #2, used in erasable memory check routine 
as a flag (if non-zero) to cause unswitched erasable to be checked 
(cells 006lg - 1372g, plus 1373 g partially) after completion of 
checks for each erasable bank (these cells are in banks 0-2, which 
should be read for any value of EBANK). Cell is used in fixed 
memory check routine to contain the contents of the fixed memory 
cell just read; in the "SHOWSUM" option, it contains the fixed 
memory bank number (00 - 43^) displayed in R2, which should be the 
same as the magnitude of SKEEPl (value of SKEEPl is displayed in Rl) . 

SKEEP3: Self-check register #3, used in erasable memory check routine 
to contain the value of the last address to be checked (i.e. one 
more than the final value of SKEEP7 actually used) . The routine 
checks cells in pairs in ascending order (starting with the cell 
initialized in SKEEP7), and SKEEP3 specifies the final cell 
forming the upper half of a pair (SKEEP7 +l) . Cell is used in 
fixed memory check to contain for fixed-fixed memory the S- 
register information (4000g - 7777g) , and for fixed-switchable 

memory the S-register information decreased by 2000^. For the 
"SHOWSUM" option, cell is loaded with the final value of SKEEP2, 
which gives the final word read from memory (the "bugger word", 
designed to make the simi of all words in the memory, including 
itself, eqioal in magnitude to the bank number) for the bank, and 
is displayed in R3 . 

SKEEP4; Self -check register #4, used in erasable memory check routine 
to contain the erasable memory bank of the cells being checked 
(employed in "GOPROG" to reset EBANK, cf. ERESTORE). In fixed 
memory check routine, bits 15-11 are used to contain the 
appropriate setting for FBANK and bits 7-5 the appropriate value 
for FEXT. 

SKEEP5: Self-check register #5, used with SKEEP6 in erasable memory 
check routine to retain the previous value of the cell being 
checked (to permit restoration of the cell in "GOPROG" or at the 
end of the test segment checking the cell). Used in fixed memory 
check routine to monitor for the presence of two TC self ("transfer 
control to the present step") orders, indicating that the following 
cell should be the final one entering the sum (bank sum also halted 
after last cell in bank has been read). If step not a TC self, 

SKEEP5 set to +1; if it is, cell is decreased by 1, and after 
reaching -1 the routine is halted for that bank after the next 
("bugger", see SKEEP 3 ) word is incorporated into the sum. Since 
the operation code for the TC order is 0, a "TC self" instruction 
(which, of course, would cause a hardware restart if encountered 
in the course of a program execution) appears as OAAAAg, where 
AAAA is the S-register address of the cell in question, in range 

2000g - 77778- 
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SKEEP6: Self -check register #6, used with SKEEP5 in erasable memory 
check routine to retain the previous value of the upper half of 
the pair of cells being checked (cf. SKEEP5). In the fixed memory 
check routine, is set to -0 to indicate that the "ROPECHK" option is used 
(automatic check for proper memory sum, part of self-check sequence, 
with no display unless difficulty); and is set to +1 to indicate 
that the "SHOWSUM" option is used (enabled by verb 91 from 
"GOSHOSUM", giving a DSKY display of each bank's sum, number, and 
"bugger word", with no automatic check for proper memory sum). 

SKEEP7: Self check register § 1 , used in erasable memory check routine 
to contain the S-register portion of the erasable memory address 
of the lower half of the pair of cells being checked (see 
discussion i^th E^STORE above). In fixed memory check, is used 
as an identification of when the two fixed -fixed banks (bank 2 and 
bank 3, S-register addresses starting at 4000^^ and 6000o 
respectively) are to be read. ° 

SMODE; Single precision cell, scale factor B14, used to control the 
performance of the computer self -check routines, and examined 
whenever no active jobs are to be done (and, of course, no tasks). 

It is set to +0 as part of a fresh start, and can be loaded using 
N27. A +0 value causes the self -check routine to be bypassed; 
values of magnitude 9 or more cause SMODE to be reset to 0; 
a value of 4 causes the erasable memory check to be done; a value 
of 5 causes the fixed memory check to be done; and other values 
(-0, 1,2, 3, 6, 7, or 8) cause the complete self-check to be done. 

If SMODE is positive, an error will cause it to be reset 0, vrtiile 
if it is negative the self— check will be started again (except for 
a value of -0, which causes the se]_f -check computations to be 
started at the point after the failure, as determined by SFAIL). 

SNAMGi (i =X,Y,Z): Value of sine of ANGX, ANGY, and ANGZ, scale factor 

B-2, stored in pxish-down list locations lOD, 12D, and 14D respectively. 

SOUTHDR^: Indexed cell used in "TORQUE" to retain the value of DRIFTI 
for subsequent use by erasable memory program. 


'^mark’ 


See Prelaunch Alignment. 
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[TRANSMij : Transformation matrix used as a "sway transition matrix", 
contained in erasable memory (must be initialized to values as 
part of an erasable memory load before running test). Assumed 
scaling in this writeup for all elements is B1 (after being used 
to perform multiplication, a left shift of 1 is done). Values 
from a previous program (Sundisk, which used fixed memory cells) 
were : 


0.47408845 

-0.06360691 

-0.06806784 


0.23125894 

-0.16806746 

- 0.75079894 


0.14561689 

0.15582939 

-0.24878704 


These values are the "stored" ones, and must be multiplied by two 
to find the "true" values: 


0.94817690 

-0.12721382 

-0.13613568 


0.46251788 

-0.33613492 

-1.50159788 


0.29123378 

0.31165878 

0 . 49757408 ^ 


VLAUN , VLAUN^: Value of "horizontal velocity of launch vehicle" (due 
?o sway) in north-south and east-west directions respectively, 
scale factor B9, units cm/sec. 

WANGI: Value of (- cos 0^^), scale factor BO. 

WANGO: Value of (sin C , ,), scale factor BO. 

atd ’ 

WANGT: Quantitv set to 0 if no torqiiing is performed and to 1 (scale 
factor BO) if torquing is to be performed via "EARTHR-*^" at the 
start of "SLEEPIE^". Program notation also "TORQNDX, TORQNDX+1" . 

If it is non-zero, WANGI term is included in computation of WPLATI. 


WPLATI, WPLATO, WPLATT: Quantities computed in "ALFLT^", scale factor 
BO, normalized by earth rotation rate (hence are^converted to 
angles, for the one-second gyro drift evaluation cycle, by 
multiplication by K , ) . The "I" is south, the "0" is 
vertical ("azimuth"f®°am the "T" is east. 


) 
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Values of ALFDK information from an earlier program (Sundisk) 


n 


Index Time ALTIM 

BUFTCPIP 

BUFTCERC 

- BUFSLPAZ 

BUFSLPVRD 

BUFSLPNSD 

0 1-30 -28 

.91230833 

.81193187 

-.00035882 -.00000029 

.00013262 

12 31-90 -58 

.99122133 

.98940595 

-.00079010 -.00000265 

.00043154 

24 91-100 -8 

.99971021 

.99852047 

.00042697 -.00000213 

.00011864 

36 101-200 -98 

.99550063 

.98992124 

.00043452 -.00000401 

-.00021980 

48 201^50 -248 

.99673264 

.99365467 

.00003767 -.00002317 

-.00003305 

60 451-790 -338 

.99924362 

.99888274 

.00000064 -.00004012 

-.00000195 

72 791-1200 

-408 

.99963845 

.99913162 

.00000090 

.00002927 

-.00000026 

84 1201-1700 

-498 

.99934865 

.99868793 

.00000055 

.00001183 

-.00000005 

96 1701-2100 

-398 

.99947099 

.99894799 

.00000018 .00000300 

-.00000001 

108 2101-2700 

-598 

.99957801 

.99916095 

.00000007 

.00000096 

0 

120 2701-3400 

-698 

. 99966811 ^ 

.99933952 

.00000002 

.00000028 

0 

132 3401-4000 

-598 

.99972716 

.99945654 

.00000001 .00000010 

, 0 


The "index" column gives the value of the ALFDK index required to 
obtain the ALTIM setting (see "ALFLT^"). The columns are headed with the 
cells into which the ALFDK. information is loaded (ALTIMS, a single 
precision cell, could be loaded with the same value, e.g. -1, for all 
entries to' the table). 


U 
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Uplink Processing 


V70UPDAT (verb 70) 

UPVERBSV = 0 

Proceed to second line of "V73UPDAT" 

V71UPDAT (verb 71 ) 

UPVERBSV = 1 

Proceed to second line of "V73UPDAT" 

V72UPDAT (verb 72) 

UPVERBSV = 2 

Proceed to second line of "V73UPDAT" 

V73UPDAT (verb 73) 

UPVERBSV = 3 
Perform "TESTXACT" 

If |mODREG| ^ 0: 

If bit 9(UTFLAG) of FLAGWRDS = 1: 

If MODREG = 20: 

Proceed to "UPDATEOK" 

If MODREG ^ 2: 

Set bit 7 (Operator error) of channel 11 = 1 
Set bit 3 (Uplink activity) of channel 11 = 0 
Proceed to "ENDEXT" 

Proceed to "UPDATEOK" 

UPDATEOK 

UPOLDMOD = MODREG 
UPVERB = UPVERBSV 
UPCOUNT = 1 

DNLSTCOD = 1 (Tag here "UPPART2") 
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TS = 27 and perform "NEWMODEX" 

If UPVERB = 0 or 3: 

COMPNUMB = 2 
Proceed to "0HWELL2" 

Proceed to "OHWELLl" 

OHWELLl 

MPAC+2 = "UPBUFF" 

TS = 2101^ 

Proceed to "GOXDSPF": if terminate, proceed to second line of "UPOUT" 

if proceed, proceed to second line of "OHWELLl" 
otherwise, proceed 

If MPAC+0 = 32, proceed to second line of "OHWELLl" (recycle verb) 

If UPBUFF -2^0, proceed to second line of "OHWELLl" 

If UPBUFF - 21^ 0, proceed to second line of "OHWELLl" 

COMPNUMB = UPBUFF+0 
UPCOUNT = UPCOUNT +1 
Proceed to "0HWELL2" 

0HWELL2 

MPAC+2 = "UPBUFF" + UPCOUNT - 1 
TS = 2101 

vn 

Proceed to "GOXDSPF": if terminate, proceed to second line of "UPOUT" 

if proceed, proceed to second line of "0HWELL2" 
otherwise , proceed 

If MPAC+0 = 32 , proceed to second line of "0HWELL2" (recycle verb) 

If COMPNUMB - UPCOUNT > 0: 

UPCOUNT = UPCOUNT + 1 
Proceed to "0HWELL2" 

Proceed to "UPVERIFY" 


UPLK-2 


UPVERIFY 


MPAC+2 = "UPTEMP" 

TS = 2102 

vn 

Proceed to "GOXDSPF": if terminate, proceed to second line of "UPOUT" 

if proceed, proceed to "UPSTORE" 
othervd.se, proceed 

If MPAC+O = 32 , proceed to second line of "UPVERIFY" (recycle verb) 

If UPTEMP ^ 0, proceed to "UPVERIFY" 

If COMPNUMB + 1 - UPTEMP ^ 0, proceed to "UPVERIFY" 

MPAC+2 = "UPBUFF" + UPTEMP - 1 
Proceed to second line of "0HWELL2" 

UPSTORE 

Complement bit 3(VERIFLAG) of FLAGWRD? 

If upverb;^ 3 : 

UPBUFF+8^p = UPBUFF+O^p 

Perform "TIMEDIDL": if error return, proceed 

otherwise, skip next line 

Set bit 7 (Operator error) of channel 11 = 1 

Proceed to second line of "UPOUT" 

Establish "UPJOB" (priority 30 q) (has a VAC area for "INTSTALL") 
End of job 
UPJOB 


Perform "INTSTALL" 

Set bit 13(INTGRAB) of FLGWRDIO = 1 

If UPVERB = 0: 

UPBUFF+8, = - UPBUFF+0, 
dp dp 
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(If UPVERB = 0): 


Perform "TIMEDIDL": if error return, proceed 

otherwise, skip next 2 lines 

Set bit 7 (Operator error) of channel 11—1 

Proceed to "UPOUT" 

UPBUFF+10^ = - UPBUFF+0, 
dp dp 

UPBUFF+12,„ = - UPBUFF+0, 


Set TS = UPBUFF+10 


^dp 

and UPBUFF+10^ p = 0 



Set TS = UPBUFF+12^^ and UPBUFF+12, = 0 
dp dp 

'^etlm '^etlm 


Set TS = UPBUFF+O^p and UPBUFF+O^p = 0 

T , = T , + TS 
eph eph 

Proceed to "UPOUT" 

If UPVERB = 1: 

EBANK = bits 11-9 of UPBUFF+1 
UPTEMP = bits 8-1 of UPBUFF+1 
TS = UPTEMP + COMPNUMB - 3 
If /ts|> 0: 

If bit 9 of TS = 1: (e.g^AOOg, indicating next EBANK) 

Set bit 7 (Operator error) of channel 11—1 
Proceed to "UPOUT" 

TS = COMPNUMB - 3 
TS^ = 1400g + UPTEMP 

Perform the following for i = TS to i = 0: (interrupts 


inhibited ) 


E, 


TS^+i 


= UPBUFF, 


i = 1 - 1 


Proceed to "UPOUT" 
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If UPVERB =2: (as it will) 

If bit 1 of COMPNUMB = 0: (i.e. not an odd number) 

Set bit 7 (Operator error) of channel 11 = 1 
Proceed to "UPOUT" 

TS = COMPNUMB - 2 


Perform the following for i = TS to i = 1: (interrupts 

inhibited) 

EBANK = bits 11-9 of UPBUFF. 

1 

TS^ = 1400g + bits 8-1 of UPBUFF^ 

®TS^ = UPBUFF^^. 
i = i -2 

Proceed to "UPOUT" 


TIMED IDL 

Set UPBUFF+18 - T^^^ and T =0 
clp now now 

Set TS = UPBUFF+8,„ and UPBUFF+8, = 0 
op dp 

TS = TS + UPBUFF+18^ p 
If (TS| ^ 228; 

Set TS = UPBUFF+18^p and UPBUFF+18^p = 0 

T = T + TS 
now riow 

Return to calling address +1 (indicating an error) 
Force sign agreement of TS 


T = T + TS 
■^now - now 


Return to calling address +2 (non-error return) 


UPOUT 


Proceed to "INTWAKEU" (which exits to next line) 
TS = UPOLDMOD and perform "NEWMODEX" 

TS = MODREG - 1 

If |ts 1= 1: (i.e. UPOLDMOD was 0 or 2) 

DNLSTCOD = 0 


UPLK-5 


Rev. 0 



If TS > 1: 


(i.e. UPOLDMOD was 20) 


DNLSTCOD = 2 

Set bit 3 (Uplink activity) of channel 11 = 0 
Proceed to "ENDEXT" 


INTWAKEU 

If UPSVFLAG ^ 0; 


RCV = R , 
— — rect 


VCV = V ^ 
— —rect 

TDELTAV = 0 


TNUV = 0 

T = 0 
c 

XKEP = 0 

TS = I UPSVFLAG I - 2 
If TS = 0: 

X2 = 2 (moon sphere) 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 
If TS ^ 0: 

X2 = 0 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 
If UPSVFLAG;^ 0: 

Perform "MOVEACSM" 

Set bit 12(CM00NFLG) of FLAGWRD8 = 1 

If bit 1(AVEMIDS¥) of FLAGWRD9 = 0: 

R = RCV + TDELTAV (X2 used to determine 

V = VCV + TNUV necessary shifts) 

T = T 
pptm et 

If bit 12(M00NFLAG) of FLAGWRDO = 0: 

Set bit 12(CM00NFLG) of FLAGWRD8 = 0 
Set bit 6(0RBWFLAG) of FLAGWRD3 = 0 
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(If UPSVFLAG ^ 0): 


If UPSVFLAG <0: 

Perform "MOVEALEM" 

Set bit ll(LMOONFLG) of FLAGWRD8 = 1 

R , , = RCV + TDELTAV (X2 used to determine 

—other — — 

—other ~ necessary shifts) 

If bit 12(M00NFLAG) of FLAGWRDO = 0: (Time tag 

Set bit ll(LMOONFLG) of FLAGWRD8 = 0 
Set bit l(RENDWFLG) of FLAGWRD5 = 0 (Tag here "INTWAKEX") 
Channel 77 = 0 (resets restart monitor flip-flops) 
UPSVFLAG = 0 

QPRET = Return address (to line after next) 

Perform "INTWAKE" (starting at Si’d from last line, awaken jobs) 
Proceed to second line of "UPOUT" 
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Quantities in Computations 

See also list of major variables and list of routines 


COMPNUMB: Single precision cell, scale factor Bl/*,, containing the total 
number of uplink data quantities to be sent. It is set to 2 for 
verbs 70 and 73; for verb 71 it is set to the first data quantity 
(and hence must be equal to the number of data words +1 (for address 
of first word) +1 (for its own setting)); for verb 72, it is likewise 
set to the first data quantity (since each data word is preceded 
by its address, it therefore must be 2 x data words +l). For verbs 
71 and 72, values of COMPNUMB below 3 (the minimimi for one data 
word) or above 20 are rejected: this gives for verb 71 a maximum 
of 18 single precision data words (or 9 double precision ones, 
sufficient e.g. for a 3 x 3 matrix), and for verb 72 a maximum of 
nine single precision data words. 

DNLSTCOD: See Telemetry. 

EBANK: See Data Input /Output . 

MPAC+0: Cell loaded in display routine with the verb that is received 
(also used for other functions). 

MPAC+2: Cell used for communication purposes with display routine, to 
provide the address into which a quantity (for e.g. noun 01 or 02) 
is to be loaded (also used for other functions). 

QPRET: See Orbital Integration. 

R j-i- > R j. • See Orbital Integration. 

—other’ — rect ° 

RCV: See Orbital Integration. 

T^: See Orbital Integration. 

'^eph' Boost Computations. 

T . , T , , T : See Orbital Integration, 

et’ etcm’ etlm ° 

TDELTAV, TNUV: See Orbital Integration. 

UPBUFF: Set of 20 cells (UPBUFF+0 through UPBUFF+19) used to contain the 
uplinked information as it is received. Also used for temporary 
storage of time information, after completion of the update sequence, 
for verbs 70 and 73 • Cells are loaded during the entry phase of 
flight with guidance parameters for telemetry purposes. The 
address of UPBUFF+0 is 003 04^. The last 18 cells of the UPBUFF 
set also are used for storage of |x : consequently, if it is desired 
to uplink this preferred IMU alignment for use in P52/P54, this must be 
the last uplink that is sent before P52/P54 uses the data. 
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UPCOUNT: Single precision quantity, scale factor BI4, containing the 
serial number of the UPBUFF cell to be loaded next. If cell 
UPBUFF-fn is to be loaded, UPCOUNT = (n +1). When UPCOUNT = 
COMPNUMB, it is concliided that the basic load has been completed, 
and the option for "line-by-line" corrections is enabled, during 
which UPCOUNT does not change. 

UPOLDMOD: Single precision cell, scale factor BI4, used to contain the 
value of MODREG when an update verb is received, and used to 
restore its proper value (-0, 0, 2, or 20) after the end of the 
update sequence. 

UPSVFLAG: Single precision cell, scale factor BI4, assigned a cell in 
erasable memory just before the first component of 
set by the update loading process to cause proper processing of 
a state vector update. The cell is checked in "INTWAKEU", and 
if non-zero it is concluded that a state vector update was done 
(if positive, a CSM state vector; if negative, a LM state vector), 
and after processing the cell is reset 0 (which is also the initial 
condition set in "DOFSTART"). A value of magnitude 2 (i.e. +2 for 
CSM and -2 for IM) indicates that the state vector is in moon- 
centered coordinates (with moon-centered scaling); other non-zero 
values, such as +1 and -1, are interpreted to mean earth-centered 
coordinates (with earth-centered scaling) . 

UPTEMP: Single precision cell used for temporary storage purposes. In 
the "line-by-line" correction mode, it contains the loaded value 
of the component serial number (defined as for UPCOUNT) into 
which the correction is to be loaded, scale factor BI4. The 
address of UPTEMP is 00330^. 

UPVERB: Single precision quantity, scale factor BI4, containing 

information on the update verb being performed: for verbs 70-73, 
it is set to 0-3 respectively. 

UPVERBSV: Single precision cell, scale factor BI4, used to retain 

information on the update verb received while a determination is 
made if it is allowed: if it is, then UPVERBSV is loaded into 
UPVERB. 

Mother’ ^ect= Orbital Integration. 

VCV: See Orbital Integration. 

XKEP: See Orbital Integration. 
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Uses of Update Verbs 


Verb 70 

Verb 70 could be considered a "liftoff time update". Its 
transmission format is: 

V 70 E XXXXX E XXXXX E (then V 33 E) 

where the "X" information is an octal double precision increment to be 
added to T ^ and subtracted from the computer clock and the state 
vector timiS for GSM and LM, scale factor B2S, units centi-seconds . 

If liftoff were sensed 5 seconds late, for example, then the transmission 
should be: 

V 70 E 77777 E 77013 E (V 33 E) (- 77013g = 764g = 500 cs) 

in order to correct the AGO time information to reflect the proper 

"liftoff time" (note that V70 keeps the sum of T , and the computer 

clock constant by changing them in opposite directions). If only the 

computer clock (T ) is to be updated, then verb 73 could be used, 
now 

Verb 71 

Verb 71 is used to perform a "contiguous block update". Its 
transmission format is: 

V 71 E ii E AAAA E XXXXX E XXXXX E . . . XXXXX E (V 33 E) 

where the "ii" information is the setting for COMPNUMB, and is two 
more than the number of data words (i.e. number of XXXibc E's +2). 

The AAAA information is the erasable memory address into which the 
first XXXXX data word is to be loaded (successive words are loaded 
into successive cells), and must be sufficiently compatible with the 
value of ii so as to avoid requiring erasable memory bank switching. 

AAAA is in ECADR format, meaning that bits 11-9 give the E-bank number 
and bits B-1 the address within the bank (which, for hardware reasons, 
is added to 1400g within the program) . Since there is no lockout 
(aside from bank switching constraints) on the value of AAAA, caution 
must be observed to avoid destroying computer control cells (the 
"ENDSAFE" lockout present in e.g. Sundisk has been deleted). 


Verb 72 

Verb 72 is used to perform a "scatter update". Its transmission 
format is: 

V 72 E ii E A^ A^ A^ A^ E XXXXX E A^ A^ A^ E XXXXX E . . . (V33E) 

where the "ii" information is again the setting for COMPNUMB, and is 
equal to two times the number of data words plus 1 (and hence must be 
odd, as well as at least 3 and below 21, i.e. maximum 19 here). The 
A's are specified for each 15-bit word individually, with no constraints 
imposed by the software on addresses which may be changed. 
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Verb 73 


Verb 73 is used to perform an "octal clock increment" (verb 55 can 
be used to perform the same faction for decimal input of hours, minutes, 
and centi-seconds) , and has the follovdng transmission format: 

V 73 E XXXXX E XXXXX E (then V 33 E) 

where the "X" information is an octal double precision increment to be 
added to the computer clock (note that the V70 uplink time is subtracted 
from the computer clock), scale factor B28, units centi-seconds. 


Sample Urxiate Sequences 

1. To load the components of jREFSMMA'^ (double precision elements, 
scale factor Bl), the following sequence co\ild be used: 


V 71 E 24 E 1733 E (COMPNUMB = 20; "REFSMMT" = 3,1723) 


XXXXX E XXXXX E 
XXXXX E XXXXX E 

etc. 

XXXXX E XXXXX E 
V 33 E 


(row 1 column l) 
(row 1 column 2 ) 

(row 3 column 3) 
(accept) 


2. To load the components of fx ,1 (preferred IMQ orientation, 
see Inflight Alignment), the same seqv^ce as in #1 could be used, except 
that the address instead of being 1733 should be 0306 ("X = "UPBUFF" +2). 


3. To load a CSM state vector update, the following sequence could 
be used: 


V 71 E 21 E 1501 E 

(COMPNUMB = 17; "UPSVFLAG" 

' = 3,1501) 

OOOOx E 

(x = 1 for earth-centered, 2 

for moon-centered) 

XXXXX E XXXXX E 

^rect^ 


Y-component 


Z-component 

XXXXX E XXXXX E 

^rect 

X 


Y-component 


Z-component 

XXXXX E XXXXX E 

T . value 
et 


V 33 E 

(accept) 



4. To load a IM state vector update, the same sequence as in #3 
could be used, except that the UPSVFLAG setting, rather than being 
00001 (earth) or 00002 (moon), should be 77776 or 77775 respectively. 
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5. To load an External Delta-V (P30) update, the following 
sequence could be used: 

V 71 E 12 E 3404 E (COMPNUMB = 10; "DELVLVC" = 7,14-04) 

XXXXX E XXXXX E DELVLVC 

Y-component 

Z -component 

XXXXX E XXXXX E T. 

ig 

V 33 E (accept) 

6. To load an External Delta-V (P30) update for deorbit, the 
following sequence coiild be used: 

V 71 E 16 E 3400 E (COMPNUMB = 14; "MTSPL" - 7,1400) 

XXXXX E XXXXX E LATSPL 

XXXXX E XXXXX E LNGSPL 

(continue on 
as in item #5) 

7. To perform an update of merely the entry parameters, the 
sequence of #6 could be used, stopping after LNGSPL (hence first 
few quantities would be V 71 E 6 E 3400 E) . 

8. To load a landing site update, the following sequence 
could be used: 

V 71 E 10 E 2025 E (COMPNUMB = 8; "RLS" = 4,1425) 

XXXXX E XXXXX E RLS^ Coordinate Transformations) 

Y-component 
Z-component 
V 33 E 

9. To load new values for erasable memory constants (such as IMU 
compensation parameters), see the list of cells in Erasable Memory 
Prelaunch Load (which is arranged in sequence of increasing addresses). 
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Verb Definitions 


VERBFAN 


If (VERBREG - 


Proceed to address specified by 


'^^^^ERBRBG 


TS = VERBREG - K , _ 

st2cn 


Perform "RELDSP" 

Proceed to address specified by 


K 


t2fn^2 


AIM/END 


Set bit 7 (Operator error) of channel 11 = 1 
Proceed to "PDJBRNCH" 


TESTXACT 

If EXTVBACT > 0: 

Proceed to "ALM/END" 

If bits 14(PRI0IDLE), 12(PDSPFLAG) , and 7(PR0WTKEY) of FLAGWRD4 5^ 0: 

Proceed to "ALM/END" (priority display using DSKY) 

EXTVBACT = 00024g (sets bits 5 and 3 to l) 

TS = -2 and perform "NVSUB": if busy, proceed (blank RI-R3 

otherwise, proceed and noun) 

Check for new job waiting to be performed, and do it if required 

Return 

VBTSTLTS (verb 35) 

If MODREG ^ 0: 

Proceed to "ALM/END" 

Inhibit interrupts (released in "DELAYJOB" performance) 

Set bit l(LMPTSTBT) of IMODES33 = 1 

Set bits 7(0perator error), 6(Flash), 5 (Key Release) , 4(Temperature 
Caution), 3 (Uplink Activity), and 1(ISS Warning) of channel 
11 = 1 
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DSPTAB+-11 = 00650g and flag for output at next opportionity 
(bit 9 is Program alarm, bit 8 Tracker alarm, bit 6 
Gimbal lock, and bit k No attitude) (Note if restart, "GOPROG" 

put IMU into coarse align) 

Set bit 10(Test DSKY lights) of channel 13 = 1 

Set DSPTABtO to DSPTABtlO so that all registers display "8" and 
Rl, R2, and R3 display plus signs, and flag for output at 
next opportunity 

NOUT = 11 

Delay seconds (by putting job to sleep via "DELAYJOB") 

Proceed to "TSTLTS3" 


TSTLTS3 

Set bits 7, 4, 3, and 1 of channel 11 = 0 (interrupts inhibited 

during routine) 

Set bit 10 of channel 13 = 0 

TS = bit 4(Coarse align) of channel 12 

DSPTABtll = TS, and flag for output at next opportunity (bit 4 is 
No attitude) 

(Note that bit 9, Program alarm, set 0 even 
if FAILREOfO 0) 

Set bit l(LMPTSTBT) of IMODES33 = 0 

Set bits 13-11 (PIP2FLBT, DNLKFAIL, UPLKFAIL) of IMODES33 = 1 
Set bit 15(TLIMBIT) of IMODES3O = 0 

Set bits 13, 12, and 10 (IMUFLBIT, ICDUFLBT, PIPAFLBT) of IMODES3O == 1 
Set bit 7(0CDUFBIT) of OPTMODES = 1 
Establish "DSPMMJB" (priority 30g) 

MONSAVEl = 40000g (sets bit 15 to l) 

Set bit 6 (Flash) of channel 11 — 0 
Perform "RELDSP" 

If CADRSTOR ^ 0: 

Proceed to "PINBRNCH" 


End of job 
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VBZERO (verb 40) 


If IMUCADR 0: 

Proceed to "AIM/END" 

Perform "IMaZERO" 

Perform "IMUSTALL": if error return, proceed 

otherwise, proceed 

Proceed to "PINBRNCH" 

VBCOARK (verb 4l) 

If NOUNREG 20: (ICDU) 

If NOUNREG ^ 91: (OCDU) 

Proceed to "ALM/END" 

If NOUNREG = 20: 

Perform "TESTXACT" (Tag here "IMUCOARK") 

TS = 2522 

vn 

Proceed to "GCKDSPF" : if terminate, proceed to "ENDEXT" 

if proceed, proceed 
otherwise, proceed 

TS = 4100 

vn 

Perform "EXDSPRET" 

If IMUCADR 7^ 0: 

Set bit 7(0perator error) of channel 11 = 1 
Proceed to "ENDEXT" 

Perform "IMUCOARS" 

Perform "IMUSTALL": if error return, proceed 

otherwise, proceed 


Proceed to "ENDEXT" 

If MODREG f 0: (N9l) (Tag here "OPTCOARK") 

Proceed to "ALM/END" 
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Perform "TESTXACT" 

If SWSAMPLE ^0: (switch not at computer position) 

Set bit 7 (Operator error) of channel 11 = 1 
Perform "ALARM" (pattern 0115g) 

If OPTIND = -0: (Not expected in view of POO restriction) 

Perform "ALARM" (pattern 0117g) 

Proceed to "ENDEXT" 

TS = 2492^ 

Proceed to "GOXDSPF" ; if terminate, proceed to "ENDEXT" 

if proceed, proceed 
otherwise, proceed 

DESOPTS = SAC (loaded in R1 of N92) 

DESOPTT = PAG (loaded in R2 of N92) 

TS = 4100 

vn 

Perform "EXDSPRET" 

OPTIND = 1 
Proceed to "ENDEXT" 

IMUFINEK (verb 42) 

Perform "TESTXACT" 

TS = 2593^ 

Proceed to "GOXDSPF": if terminate, proceed to "ENDEXT" 

if proceed, proceed 
otherwise, proceed 

TS = 4200 

vn 

Perform "EXDSPRET" 

If IMUCADR ^ 0: 

Set bit 7 (Operator error) of channel 11 = 1 
Proceed to "ENDEXT" 

Perform "IMUFINE" 
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n 


Perform "IMJSTALL": if error return, proceed to "ENDEXT" 

othervdse, proceed 


TS = "OGC" 

Perform "IMUPULSE" 

Perform "IMQSTALL": if error return, proceed 

othervdse, proceed 


Proceed to "ENDEXT" 

IMJATTCK (verb 43) 

If MODREG ^ 0, proceed to "AIM/END" 

If bits 4-5 (IMU Coarse align, IMQ Zero) of channel 12 OO 2 : 
Proceed to "ALM/END" 

Perform "CKLFTBTS": if after liftoff, proceed 

if before liftoff, skip next line 


Perform "TESTXACT" 


Set bits 6(Enable CDU IMU Error Counters) and 4 (iMU Coarse Alien) 
of channel 12 = 0 

O TS = 2522^„ 

Proceed to "GOXDSPF": if terminate, proceed to "TRMATTCK" 

if proceed, proceed 
othervdse, proceed 

Perform "NEEDLEll" 

Perform "NEEDLER2" 

Call "ATTCKl" in 0.02 seconds 
Proceed to "TRMATTCK" 

TRMATTCK 


Perform "CKLFTBTS": if after liftoff, proceed to "ENDEXT" 

if before liftoff, proceed 

Proceed to "PINBRNCH" 

ATTCKl 

AK = THETAD 
Perform "NEEDLES" 

End of task 
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If bit 5(BKUPL0) of FLAGWRD5 = 0: 

If bit 5(Liftoff complement) of channel 30 = 1: 

Return to calling address +2 (before liftoff) 
Return to calling address +1 (after liftoff) 

SETSURF (verb 44) 

Set bit 8(SURFFLAG) of FLAGWRD8 = 1 (used e.g. in ''mumRV' 

selection of LM state 

Proceed to "PINBRNCH" computational scheme) 

RESTSRF (verb 45) 

Set bit 8(SURFFIAG) of FIAGWRD8 = 0 
Proceed to "PINBRNCH" 

STABLISH (verb 46 ) 

See Digital Autopilot Interface Routines 
LMTOCMSV (verb 47) 

Establish "LMTOCM" (priority lOg) 

End of job 
LMTOCM 

Perform "INTSTALL" 

Set bit 12(CM00NFLG) of FLAGWRD8 - 1 
If bit II(IMOONFIJG) of FLAGWRD8 = 0: 

Set bit 12(CM00NFLG) of FLAGWRD8 = 0 
Inhibit interrupts 

lectern ^ectlm 

lectern ^ectlm 

m = T 

•‘•etem etlm 

DELTAV = DELTAV, 

-cm — Im 


' for 
vector 
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n 



NUV = NUV, 
-cm -Im 

RCV = RCV, 
-cm -Im 


VCV = VCV, 
■“cm “Im 


T = T T 
ccm elm 

XKEP = XKEP^ 
cm Im 

Proceed to "TACHEKIT" 
TACHEXIT 


Release interrupts 
Perform "MOVEPCSM" 

If bit 12(CM00NFLG) of FIAGWRD8 =1:. 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 
PBODY = 2 

If bit 12(CM00NFIG) of FLAGWRD8 = 0: 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 
PBODY = 0 
X2 = PBODY 

If bit l(AVEMIDSW) of FLAGWRD9 = 0: 


R = RCV + TDELTAV 
V = VCV + TNUV 


T = T 
pptm et 


(X2 used to determine 
necessary shifts) 


Mother = 


(X2 used to determine 
necessary shifts) 

Perform "INTWAKE" (starting at 3rd from last line, av/aken jobs) 


Mother = VCV + TNUV 


Proceed to "PINBRNCH" 

DAPDISP (verb 48) 

See Digital Autopilot Interface Routines 

CREWMANU (verb 49) 

If MODREG ^ 0, proceed to "ALM/END" 

Perform "TESTXACT" 

Establish "R62DISP" (priority 10^) 

8 

End of job 
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GOLOADLV (verbs 50, 51, 53, 59, 97, and 99) 


Set bit 6 (Flash) of channel 11 = 0 
Proceed to "LOADLV” 

V52 (verb 52) 

If MODREG 22 \ 

Proceed to "ALM/END" 

Set bits 12-10 of LANDMARK = 0 

TS = (NUM8NN, shifted left 9 places) (bits 12-10) 
LANDMARK = LANDMARK + TS 
Proceed to "PINBRNCH" 

G0T0R23 (verb 54) 

Perform "TESTXACT" 

If bit 7(RNDVZF]JG) of FLAGWRDO = 1: 

If bit 5(TRACKFIG) of FLAGWRDl = 1: 

Establish "R23CSM" (priority l6g) 

End of job 

Perform "ALARM" (pattern 0406g) 

Proceed to "ENDEKT" 

ALINTIME (verb 55) 

Perform "TESTXACT" 

TS = 2524 

vn 

Proceed to "GOXDSPF": if terminate, proceed to "ENDEKT" 

if proceed, proceed to "ENDEXT" 
othervd.se , proceed 

If MPAC+0 ^ 23 : (final verb not 23) 

Proceed to "ENDEXT" 

Inhibit interrupts 

Set TS = T and T =0 
nov\r now 
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TS = TS + DSPTEM2flj 

dp 

T = T + TS 
now now 


, with sign agreement forced (DSPTEM2+1^ contents 

destroyed) 


Release interrupts 


Proceed to "ENDEXT" 


TRACKTRM (verb 56 ) Also entered from R 60 or V34E to V06NZ).9 in P20 
Set bit 2(R67FLAG) of FLAGWRD8 = 0 
If bit 9(UTFLAG) of FLAGWRD8 = 0: 

If bit 7(RNDVZFLG) of FLAGWRDO = 0: 

Proceed to "PINBRNCH" 

Set bit 7(AUT0SB3) of FIGWRDIO = 0 
Set bit 14(R21MARK;) of FLAGWRD2 = 0 
Set bit 7(UPDATFLG) of FLAGWRDl = 0 
If bit 5(TRACKFLG) of FLAGWRDl = 0: 

Set bit 7(RNDVZFLG) of FLAGWRDO = 0 
Set bit 9(UTFLAG) of FLAGWRD8 = 0 
Proceed to "PINBRNCH" 

Set bit 5(TRACKFLG) of FLAGWRDl = 0 

Set bit 8(IMUSE) and bit 7(RNDVZFLG) of FLAGWRDO = 0 

Set bit 9(UTFLAG) of FLAGWRD8 = 0 

Perform "INITSUBA" 

Perform "INTSTALL" 

Make restart groups 1 and 2 inactive 
Inhibit interrupts 


Proceed to "ENEMA" 


V57CALL (verb 57) 

Perform "TESTXACT" 
OPTIONX = 4 
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TS = 0 


If bit 2(FULTKFLG) of FLGWRDIO = 1: (bit used in "AUTOW" , zero 

means have VHF and optics) 

TS = 1 

OPTIONX+1 = TS 
TS = 0412 

vn 

Proceed to "GOXDSPF" : if terminate, proceed to "ENDEXT" 

if proceed, proceed to "EMDEXT" 
otherwise, proceed 

If OPTIONX+1 = 0: NOTE that action taken 

based on data enter, not 

Set bit 2(FULTKFLG) of FLGWRDIO = 0 PRO, giving difficulty 

for display interruptions 

If OPTIONX+1 f 0: 

Set bit 2(FULTKFLG) of FLGWRDIO = 1 
Proceed to third line of "V57CALL" 

ENATMA (verb 58) 

Set bit 15(V50N18FL) of FLAGWRD3 = 1 
Set bit 14(STIKFUG) of FLAGWRDl = 0 
Proceed to "PINBRNCH" 

V60 (verb 60) 

CPmX = CDU 
Proceed to "PINBRNCH" 

V6l (verb 6l) 

Set bit 9(NEEDLFLG) of FLAGWRDO = 0 (display DAP error) 

Proceed to "PINBRNCH" 

Vb2 (verb 62) 

Set bit 6(N22ERNDS) of FLAGWRD9 = 1 (display N22 error) 

Set bit 9(NEEDLFLG) of FLAGWRDO = 1 
Proceed to "PINBRNCH" 
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V63 


(verb 63 ) 



V 


Set bit 6(N22ERNDS) of FLAGWRD9 = 0 (display Nl? error) 
Set bit 9(NEEDLFLG) of FUGWRDO = 1 
Proceed to "PINBRNCH" 

¥364 (verb 64 ) 

Perform "TESTXACT" 

Establish "SBANDANT" (priority 04g) 

End of job 

CKOPTVB (verb 65 ) 

If MODREG ^ 02: 

Proceed to "ALM/END" 

Establish "GCOMPVER" (priority l6g) 

Proceed to "PINBRNCH" 

ATTACHED (verb 66) 

Establish "ATTACHIT" (priority lOg) 

End of job 
ATTACHIT 

Perform "INTSTALL" 

Set bit ll(LMOONFLG) of FLAGWRD8 = 1 
If bit 12(CM00NFLG) of FLAGWRD8 = 0: 

Set bit ll(LMOONFLG) of FLAGWRD8 = 0 


Inhibit interrupts 


^ectlm lectern 

^ectlm lectern 

T = T 
etlm etem 

DELTAVt = DELTAV 
— Im —cm 

NUV, = NUV 
— Im -cm 

RCV^ = RCV 
— Im —cm 

VCV, = VCV 
— Im —cm 
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T = T 

elm cem 

XKEP^ = XKEP 
Im cm 

Proceed to "TACHEXIT" (NOTE that Average-G cells R and V overwritten) 
V67 (verb 6 ?) 

Perform "TESTXACT" 

Establish "V 67 CALL" (priority 05g) 

End of job 
WOUPDAT (verb 70 ) 

See Uplink Processing 
V71UPDAT (verb 71) 

See Uplink Processing 
V72UPDAT (verb 72) 

See Uplink Processing 
V73UPDAT (verb 73) 

See Uplink Processing 
DNEDUMP (verb 74) 

DNTMIOTO = "DNDUMPI" 

Proceed to "PDJBRNCH" 

LFTFIGON (verb 75) 

Set bit 5(BKUPL0) of FIAGWRD 5 = 1 
Proceed to "PINBRNCH" 

CHAZFOGC (verb 78 ) 

If MO DREG i 02: 

Proceed to "ALM/END” 

Establish "AZMTHCGl" (priority l6g) 

Proceed to "PINBRNCH" 
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LEMVEC (verb 80) 


Set bit 8(CSMUPDAT) of FIAGWRDl = 0 
Proceed to "PINBRNCH" 

CSMVEC (verb 8l) 

Set bit 8(CSMUPDAT) of FIAGWRDl = 1 
Proceed to "PINBRNCH" 

V82PERF (verb 82) 

Perform "TESTXACT" 

Change priority of present job to 07g 
Proceed to "V82CALL" 

V83PERF (verb 83 ) Also established by "P79A" 

Perform "TESTXACT" 

Set bit 4(R31FLAG) of FIAGWRD9 = 1 
Establish "R31CALL" (priority 05g) 

End of job 
V85PERF (verb 85 ) 

Perform "TESTXACT" 

Set bit 4(R31FLAG) of FLAGWRD9 = 0 
Establish "R 3 ICALL" (priority 05g) 

End of job 
V86PERF (verb 86) 

If MRKBUFl >0: (see notes with "MKREJECT") 

MRKBUFl = -1 
Proceed to "PINBRNCH" 

If bit 7(R22CAFLG) of FLAGWRD9 =1: 

Set bit 12(REJCTFLG) of FLGWRDIO = 1 
Proceed to "PINBRNCH" 
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SETVHFLG (verb 8?) 


Set bit 9(VHFRFIAG) of FLAGWRD9 = 1 
Proceed to "PINBRNCH" 

RESET VHF (verb 88) 

Inhibit interrupts 

Set bit 8(Tracker) of DSPTABtll = 0, and flag for output at next 
opportunity 

Set bit 7(0CDUFBIT) of OPTMODES = 1 

Release interrupts 

Set bit 9(VHFRFIAG) of FLAGWRD9 = 0 

Proceed to "PINBRNCH" 

V89PERF (verb 89) 

If MODRBG 0, proceed to "ALM/END" 

Perform "TESTXACT" 

Establish "V89CALL" (priority lOg) 

End of job 
Y90?mF (verb 90) 

Perform "TESTXACT" 

Establish "R36" (priority 07g) 

End of job 
GOSHOSUM (verb 9l) 

If MODREG ^ 0, proceed to "ALM/END" 

Perfom "TESTXACT" 

Proceed to "SH0WSlMt2" 

WMATRXNG (verb 93 ) 

Set bit l(RENDWFLG) of FLAGWRD5 = 0 
Set bit 6(0RBWFLAG) of FLAGWRD3 = 0 
Proceed to "PINBRNCH" 
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VERB94 (verb 94) 


If bit 11(V94FIAG) of FLAGWRD9 = 0: 

Proceed to "ALM/END" 

Set bit 11(V94FLAG) of FUGWRD9 = 0 
If MODREG ^ 23: 

Proceed to "ALM/END" 

Set restart group 2 to phase 11 (i.e. 2.11, to cause "V94ENTER" to 
be established with priority 14g by restart logic) 

Inhibit interrupts 

Proceed to "ENEMA" 

VERB96 (verb 96) 

Set bit 5(QUITFLAG) of FLAGWRD9 = 1 

Set bit 3(V960NFIG) of FLAGWRD8 = 1 (reset in "STATINTl") 

TS = 0 

Proceed to "V37" 
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Quantities in Computations 

See also list of major variables and list of routines 


AK; See Digital Autopilot Interface Routines. 

CADRSTOR: See Data Input/Output. 

CPHIX: See Digital Autopilot RCS Routines. 

DELTAV , DELTA Vt : See Orbital Integration. 

“cm “Im 

DESOPTS, DESOPTT: See Optics Computations. 

DNTMGOTO: See Telemetry. 

EXTVBACT: Single precision cell several of whose bits are used to control 
various performance features of the extended verbs . If the cell is 
non-zero, this means that the "extended verb display system" is busy, 
and other users are locked out (hence the cell can be set non-zero 
deliberately to lock out other users). The individual bits are 
used as follows : 

Bit Use 


14 Set at start of "P6I" and in "NEWRNVN" to inhibit extended 

verbs from using coding also used by P6I computations (e.g. 
R30 time -of -flight information). 

12 Bit set 1 at end of "COMPDISP", used in "R3ICALL" (for 

R3I and R34) to delay start of first display ■until 
completion of loading of data cells. 

5 Bit set 1 by "TESTXACT", and used in "COMPDISP", "SBANDANT", 

"TICKTEST", and "V82G0N1" to indicate, if 0, that a display 
response has been received (hence the cycling for updating 
of display should be stopped ) . 

3 Set 1 in "TESTXACT" to indicate that display system 

extended verb portion is "busy" (not in general set for 
those extended verbs that do not req'uire use of the 
display system "mark/extended verb" priority). 

2 Set 1 in "TESTMARK" to indicate that optics marking 

system is in use . 

IMODES3O, IMODES33: See IMU Computations. 

IMUCADR: See IMU Computations. 
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^shots' precision constant, program notation "SHOLTS", scale 

factor B14, vinits centi-seconds . Value is 500 x 2 ~^, corresponding 
to 5 seconds. 

K - : Single precision constant, program notation "LST2C0N", scale 

st2cn 324, value 40. VERBRBG values of this amount or greater 

are considered "extended verbs". 


K : Table of single precision addresses, program notation "LST2FAN", 

st2fn^ giving (in the form of TC/TCF orders) starting addresses for 
processing of VERBREG values between table 

below. 


K : Table of single precision addresses, program notation "VERBTAB", 

^°^i giving (in the form of CADR addresses) the starting addresses 

for processing of VERBREG values less than table below. 

LANDMARK: See Orbital and Rendezvous Navigation. 

MONSAVEl: See Data Input /Out put . 

MPAC+0: See Display Interface Routines (loaded with verb that is received). 


MRKBUFl: See Optics Computations. 
NOUNREG: See Data Input/Output. 


NOUT: See General Program Control. 

NUM8NN: See Orbital and Rendezvous Navigation. 


NUV , NUVt : See Orbital Integration. 

-cm’ -Im 

OGC: See Coordinate Transformations (scale factor could be considered 
B21 in \inits of gyro pvilses as well as BO revolutions): is loaded 
by N93 . 

OPTIND: See Optics Computations. 

OPTIONX: See Display Computations. 

OPTMODES: See Optics Computations. 

PAC: See Coordinate Transformations (loaded by N92). 


PBODY: See Orbital Integration. 


R : See Orbital Integration, 
-other ” 


R j. j R XT 5 See Orbital Integration. 
Tr’ectcm’ — rectlm ° 
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RCV, RCV ^^ , RCV -| ^ : See Orbital Integration. 

SAC: See Coordinate Transformations (loaded by N92) . 
SWSAMPLE: See Optics Computations. 

"^ccm^ '^clm' Orbital Integration. 

^et’ ^etcm^ ^etlm' ^®® O^^i^al Integration. 

TDELTAV, TNUV: See Orbital Integration. 

—other" ^®® Integration. 

V , , V , T : See Orbital Integration. 

-rectcm’ —rectlm ® 

VCV, VCV .^^ : See Orbital Integration. 

VERBREG: See Data Input /Out put . 

XKEP ^^ , XKEP^: See Orbital Integration. 
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Verb 

00 

01 

02 

03 

04 

05 

06 

07 

08-10 

11-17 

18-20 

21 

22 

23 

24 

25 

26 

27 

28-29 

30 

31 

32 

33 


Verb Table Information 


Starts at Function 


"DSPAURM" 

Not assigned . 

"DSPA" 

Display in octal first component. 

"DSPB" 

Display in octal second component. 

"DSPC" 

Display in octal third component. 

"DSPAB" 

Display in octal first and second components 

"DSPABC" 

Display in octal all three components. 

"DECDSP" 

Decimal display. 

"DSPDPDEC 

Double precision decimal display. 

"DSPALARM" 

Not assigned. 

"MONITOR” 

Perform monitor function of type specified 
by least significant digit of verb (e.g. 
verb 13 does "DSPC" periodically). 

"DSPALARM" 

Not assigned. 

"ALOAD" 

Load first component . 

"BLOAD" 

Load second component. 

"CLOAD" 

Load third component. 

"ABLOAD" 

Load first and second components. 

"ABC LOAD" 

Load all three components . 

"DSPALARM" 

Not assigned. 

"DSPFMEM" 

Display contents of fixed memory. 

"DSPALARM" 

Not assigned. 

"VBRQEXEC" 

Request executive system (for a .job). 

"VBRQWAIT" 

Request waitlist system (for a task). 

"VBRESEQ" 

Recycle verb (same calling-routine return as 
a data enter) . 

"VBPROC" 

Proceed (without data) verb. 
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35 

36 

37 

i8-; 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


Starts at 

Function 

"VBTERM" 

Terminate (activity or function) verb. 

"VBTSTLTS" 

Test lights of display system. 

"SIAPl" 

Perform a (manually initiated) fresh start. 

"MMCHANG" 

Change program ("major mode"). 

"DSPALARM" 

Not assigned. 

"VBZERO" 

Zero IMU CDU's. 

"VBCOARK" 

Coarse align (IMU CDU N20; optics CDU N 9 I) . 

"IMUFINEK" 

Fine align IMU (optional pulse torquing) . 

"IMUATTCK" 

Load FDAI attitude error needles. 

"SETSURF" 

Set surface flag (LM state vector). 

"RESTSRF" 

Reset surface flag (LM state vector). 

"STABLISH" 

Establish G&C (DAP) control. 

"IMTOCMSV" 

Move LM state vector into CSM state vector. 

"DAPDISP" 

Load DAP data (RO 3 ). 0 

"CREWMANU" 

Start crew-defined maneuver (R62). 

"GOLOADLV" 

Please perform. 

"GOLOADLV" 

Please mark. 

"V52" 

Set offset mark number for P22. 

"GOLOADLV" 

Please mark alternate LOS. 

"G0T0R23" 

Start rendezvous backup sighting mark routine 
(R23). 

"ALINTIME" 

Increment computer clock (decimal input data). 

"TRACKTRM" 

Terminate tracking (P20) . 

"V57CALL" 

Select FULTKFLG option (number of sensors). 

"ENATMA" 

Enable automatic attitude maneuvers in 

R 61 and R 67 . 

"GOLOADLV" 

Please mark (optics calibration). 
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Verb 

Starts at 

Function 

60 

"V60" 

Set CPHIX (N17) = CDU (N20) . 

6 l 

"V 6 l" 

Display autopilot following error (RCS DAP 
"Mode I") on FDAI error needles. 

62 

"V 62 " 

Display autopilot total attitude error with 
respect to N22 (RCS DAP "Mode II") on FDAI 
error needles. 

63 

"V63" 

Display autopilot total attitude error with 
respect to N 17 (RCS DAP "Mode III") on FDAI 
error needles. 

64 

"VB64" 

Start S-band antenna angle calculation (RO 5 ) 

65 

"CKOPTVB" 

Optical verification of prelaunch alignment 

(PO 3 ). 

66 

"ATTACHED" 

Move CSM state vector into LM state vector. 

67 

"V67" 

Start W-raatrix RSS error display. 

68 

"ALM/END" 

Not assigned. 

69 

(one -step 
loop) 

Cause a hardware restart (one-step loop). 

70 

"V70UPDAT" 

Liftoff time update (P27) . 

71 

"V71UPDAT" 

Block address update (P27) . 

72 

"V72UPDAT" 

Single address update (P27). 

73 

"V73UPDAT" 

Increment computer clock (P27) . Input is in 
units of centi-seconds, as contrasted with 
the hours, minutes, seconds input of V55. 

74 

"DNEDUMP" 

Initialize downlink erasable memory dump. 

75 

"LFTFLOON" 

Set liftoff flag (for backup liftoff). 

76 

"ALM/END" 

Not assigned. 

77 

"ALM/END" 

Not assigned. 

78 

"CHAZFOGC" 

Change gyrocompass launch azimuth. 

79 

"ALM/END" 

Not assigned . 
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80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


Starts at 

"LEMVEC" 

"CSMVEC" 

"V82PERF" 

"V83PERF" 

"ALM/END" 

"V85PERF" 

"V86PERF" 

"SETVHFLG" 

"RESETVHF" 

"V89PERF" 

"V90PERF" 

"GOSHOSUM" 

"ALM/END" 

"WMATRXNG" 


"VERB94" 

"ALM/END" 

"VERB96" 

"GOLOADLV" 

"ALM/END" 

"GOLOADLV" 


Function 

Cause LM state vector to be updated by- 
navigation measurements (in P20) . 

Cause CSM state vector to be updated by- 
navigation measurements (in P20) . 

Request orbital parameter display (R30). 

Request rendezvous parameter display #1 
(R31, -bX axis angle). 

Not assigned (R32 is no-w P76). 

Request rendezvous parameter display #2 
(R34, optics angle). 

Reject rendezvous backup sighting mark. 

Set VHF range flag (for R22). 

Reset VHF range flag (for R22). 

Start rendezvous final attitude routine (R63) 
Request rendezvous out-of-plane display (R36) 
Compute banksums (of each fixsd memory bank). 
Not assigned. 

Reset both W matrix flags (RENDWFLG and 
ORBWFLAG) to enable initialization. 

Enable cislunar tracking recycle (P23). 

Not assigned. 

Terminate integration and go to POO. 

Please perform engine-fail logic (R40) . 

Not assigned. 

Please enable engine ignition. 
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Index of Routines 


The routines listed below are those included by specific tag in this 
document. They are arranged in the "alphabetical" order of the listing 
of symbols at the end of the program: "+", A-Z, and 0-9. 


Symbol 

Document 

Symbol 

Document 

+0N 

DATA-6 

ATTRATES 

DFEN-4 


COOR-4 

AUGEKUGL 

DISP-9 

-ON 

DATA-5 

AUTOCHK 

MINK-1 

A-PCHK 

ORBI-10 

AUTOSET 

MINK-2 

ABCLOAD 

DATA-16 

AUTOW 

MINK-7 

ABLOAD 

DATA-17 

AUT0W2 

MINK-9 

ACBD2Z 

DPRC-19 

AUTO 37 

GENP -16 

ACCOMP 

ORBI -16 

AVERAGEG 

GENP-4 

ADRSCHK 

TEST -4 

AVETOMID 

ORBI-4 

ADTIME+3 

REND-4 

AVGEND 

GENP-3 

ADVANCE 

BURN-13 

AXISGEN 

COOR-2 

ADVTRACK 

OPTC-20 

AZMTHCGl 

PREL-6 

AFTERBRN 

MINK-6 

BAILOUT 

GENP -25 

AGAIN 

STER-2 

BDROLL 

DPRC -16 

AHFNOROT 

DPRC-8 

BIASEDZ 

DPEN-12 

ALARM 

GENP-24 

BINROUND 

DATA-22 

ALARM2 

GENP-24 

BLANKET 

DINT-1 

ALFLT 

PREL-4 

BLANKSUB 

DATA -32 

ALFLT 

TEST-10 

BLOAD 

DATA-18 

ALINTIME 

VBDF-8 

BODIRATE 

DFEN-3 

ALLDC/OC 

DATA-19 

BRNCHCTR 

CONC-4 

ALLOOP 

PREL-4 

BURNHOW 

MINK-2 

ALLOOP 

TEST-10 

BVECTORS 

MEAS-5 

ALM/END 

VBDF-1 

CA+ECE 

IMUC -13 

AIMCYCLE 

DATA-28 

CAGESUB 

IMUC-8 

ALMKIT 

REND-18 

CALCGA 

COOR-2 

ALOAD 

DATA-18 

CALCGRAV 

GENP-5 

ALOADED 

ORBI-9 

CALCGTA 

COOR-1 

AMBGUPDT 

DPRC-4 

CALCN 83 

DISP-1 

APSIDES 

CONC-12 

CALCN 85 

DISP-2 

ARCCOM 

MATH-3 

CALCRVG 

GENP-4 

ARCTAN 

COOR-10 

CALCSMSC 

COOR-5 

ARCTRIG 

COOR-1 

CALCSXA 

COOR-5 

AROUTISF 

NNDF-6 

CALCTFF 

DISP -17 

ARTHINSF 

NNDF-8 

CALCTPER 

DISP -17 

ARTINISF 

NNDF-10 

CALLR6X 

ATTM-21 

ARTOUTSF 

NNDF-2 

CAL53A 

INFA-11 

ATERJOB 

BOOS-3 

CANTDO 

DISP-9 

ATERTASK 

BOOS-3 

CANV37 

GENP -19 

ATRESET 

BOOS-5 

CDHMVR 

REND-lB 

ATTACHED 

VBDF-11 

CDUTODCM 

ATTM-8 

ATTACHIT 

VBDF-11 

CDUTRIG 

COOR-3 

ATTCKl 

VBDF-5 

CHARALRM 

DATA-3 



Symbol 

Docioment 

Symbol 

Document 

CHARIN 

DATA-2 

DECDSP 

DATA-14 

CHAZFOGC 

VBDF-12 

DECDSP3 

NNDF-2 

CHECKNJ 

GENP-27 

DEC0JD 

DATA-4 

CHKCOMED 

PREL-3 

DEGINSF 

NNDF-7 

CHKLINUS 

ATTM-3 

DEGINSF2 

NNDF-7 

CHKSWTCH 

ORBI-14 

DEGOUTSF 

NNDF-2 

CIRCL 

REND-13 

DELAYJOB 

GENP-23 

CKLFTBTS 

VBDF-6 

DELCOMP 

ATTM-8 

CKMID2 

ORBI-6 

DELRSPL 

DISP-8 

CKOPTVB 

VBDF-11 

DELTIME 

CONC-5 

CLEANDSP 

DINT-1 

DIFE(^2 

ORBI-21 

CLEAR 

DATA-7 

DNDUMP 

TELE-5 

CLEARMRK 

DINT-1 

DNDUMPI 

TELE-4 

CLOAD 

DATA-18 

DNDUMPl 

TELE-4 

CLOCKJOB 

BURN-29 

DNEDUMP 

VBDF-12 

CLOCPLAY 

DINT-1 

DNPHASEl 

TELE-1 

CLOKTASK 

burn -28 

DNPHASE2 

TELE-1 

CLUPDATE 

BURN-19 

DODOWNTM 

TELE-1 

cm/dapon 

DPEN-1 

DOFSTART 

GENP-8 

cm/fdair 

DPEN-10 

DONOUN46 

DPIR-2 

cm/pose 

ENRY-1 

DONTPULS 

IMUC-18 

CMDSOUT 

DPTV-11 

D0R60 

MEAS-21 

CNTRCOPT 

DPTV-6 

DOVECPT 

MEAS-21 

COARS 

IMUC-12 

DOV5N71 

ORVN-8 

C0ARS2 

IMJC-12 

DOV6N78 

ORVN-1 

COMADRS 

TEST-4 

DOW. . 

ORBI-23 

COMMNOUT 

CONC-10 

DPFRACIN 

NNDF-10 

COMMONIM 

CONC-8 

DPFRACOT 

NNDF-7 

COMPDISP 

DISP-12 

DPINSF 

DATA-22 

COMPMATX 

ATTM-5 

DPINSF2 

NNDF-8 

COMPTEST 

DATA-13 

DPINSF4 

NNDF-10 

COM52 

OPTC-17 

DPOUT 

DATA-15 

CONSTD 

ENRY-12 

DPTEST 

NNDF-1 

CREWMANU 

VBDF-7 

DPIOUTSF 

NNDF-2 

CRS61.1 

ATTM-15 

DP20UTSF 

NNDF-3 

CRS61.2A 

ATTM-17 

DP3OUTSF 

NNDF-3 

CSCTOMAN 

OPTC-7 

DSPA 

DATA-12 

CSCTOZOP 

OPTC-7 

DSPAB 

DATA-12 

csi/a 

REND-10 

DSPABC 

DATA-12 

csi/b 

REND-10 

DSPALARM 

DATA-28 

CSI/BI 

REND-11 

DSPB 

DATA-12 

CSMCONIC 

ORBI-2 

DSPC 

DATA-12 

CSMPREC 

ORBI-2 

DSPC0M2 

DATA-13 

CSMVEC 

7BDF-13 

DSPDCEND 

DATA-15 

C13STALL 

MEAS-18 

DSPDCPUT 

DATA-14 

C33TEST 

IMJC-6 

DSPDCWDl 

DATA-25 

DAPDISP 

DPIR-2 

DSPDC2NR 

DATA-25 

DAPINIT 

DPTV-3 

DSPDECVN 

DATA-26 

DCMTOCDU 

ATTM-9 

DSPDECWD 

DATA-25 

DCOMPTST 

DATA-13 

DSPDPDEC 

DATA-15 
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Symbol 

Document 

Symbol 

Document 

DSPFMEM 

DATA-2A 

EXRSTRT 

DPTV-11 

DSPIN 

DATA -27 

FAZAB3 

MEAS-3 

DSPINl 

DATA -27 

FETCH2WD 

TELE-3 

DSFMMJB 

DATA-33 

FIFTYFPS 

REND -17 

DSPOCTWD 

DATA-26 

FINDGIMB 

ATTM-5 

DSPOUTSB 

GENP-7 

FIXCW 

DPIR-9 

DSPSIGN 

DATA -24 

FIXDB 

ATTM -13 

DSP2DEC 

DATA -25 

FLASHSUB 

DINT -15 

DUMMIJOB 

GENP -27 

FRSTPAS 

REND -17 

DVCALC 

RTER-18 

FWDFLTR 

DPTV-9 

DXCOMP 

CONC-3 

FXADRS 

TEST-5 

DYNDISP 

BURN -28 

FXFX 

TEST-7 

DZl 

DPEN -6 

GAMCCte 

ORBI -17 

EARROTl 

COOR-7 

GAMDVIO 

RTER -16 

EARR0T2 

COOR-7 

GAMDV25 

RTER -16 

EARTHMX 

COOR -11 

GAMDV35 

RTER -17 

EARTHR^s- 

PREL -6 

GAMDV50 

RTER -17 

ECENAB 

OPTC-7 

GAMDV 65 

RTER-18 

ELCALC 

REND-2 

GCOMPVER 

PREL-7 

ENABL2 

DPTV-10 

GCOMP 5 

PREL-9 

ENATMA 

VBDF-10 

GEOIMUTT 

TEST -8 

ENDEXIT 

ENRY -16 

GEOM 

CONC -13 

ENDEKT 

DINT-1 

GET. L VC 

DISP-l 

END IDLE 

DINT -16 

GET+MGA 

DISP -1 

ENDIMU 

IMUC -18 

GETERAD 

COOR-9 

ENDINT 

ORBI-2 

GETINREL 

DATA-4 

ENDMANU 

ATTM -13 

GET0N2 

DPEN-7 

ENDMANUV 

ATTM -3 

GETUM 

MEAS-5 

ENDMANUl 

ATTM-2 

GETX 

CONC -13 

ENDP 76 

BURN -36 

GLIMITER 

ENRY -15 

ENDRET 

DINT-18 

GLOCKMON 

IMUC-7 

ENDRET2 

DINT-18 

GOBAQUE 

ORBI-18 

ENDR57 

OPTC -24 

GODSP 

DINT-2 

ENDTFF 

DISP -19 

GODSPR 

DINT-2 

ENDTNON 

IMUC-9 

GODSPRET 

DINT-2 

ENDZOPT 

OPTG-6 

GODSPR&fl 

DINT-7 

ENEMA 

GENP-12 

GOESTIMS 

PREL-2 

ENGINOFF 

BURN -31 

GOESTIMS, 

TEST-8 

ENTANSWR 

OPTC-8 

GOFLASH 

DINT -2 

ENTER 

DATA-8 

GOFLASHR 

DINT-2 

ENTPASO 

DATA-8 

GOFLASHSfl 

DINT-7 

ERASCIK 

TEST-2 

GOLOADLV 

VBDF-8 

ERASLOOP 

TEST-2 

GOMARKFR 

DINT-3 

ERROR 

DATA-6 

G0MARK2 

DINT-3 

ERRORS 

TEST-1 

GOMARK4 

DINT-3 

ESTIMS 

PREL-2 

GOPERFl 

DINT-3 

ESTIMS, 

TEST-9 

GOPERFIR 

DINT-3 

EXDAP ^ 

DPEN-11 

G0PERF2R 

DINT-4 

EXDAPIN 

DPEN-5 

G0PERF4 

DINT-4 

EXDSPRET 

DINT-2 

GOPROG 

GENP-10 


\ 
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Symbol 

Document 

Symbol 

Document 

G0PR0G2 

GENP-12 

INTEXIT 

ORBI-11 

GOPROG3 

GENP-12 

INTGRATE 

ORBI-15 

G0PR0G4 

GENP-12 

INTSTALL 

ORBI-3 

GOSHOSUM 

VBDF-14 

INTWAKE 

ORBI-4 

GOTOPOOH 

GENP-15 

INTWAKEU 

UPLK-6 

GOTOR23 

VBDF-8 

INVRSEQN 

CONC-15 

GOXDSPF 

DINT -4 

ISITPOO 

GENP-18 

GSELECT 

IMUC-16 

ITERATOR 

CONC-9 

GTSCPSS 

PREL-1 

JAMTERM 

DATA-32 

GTSFIN 

NNDF-1 

JETCALL 

DPEN-IO 

GTSFOUT 

NNDF-1 

JETCALLl 

DPEN-9 

GYCRS 

INFA-14 

JETCALL2 

DPEN-10 

HANDRUPT 

DPIR-1 

JETCALL3 

DPEN-9 

HANG20 

GENP-7 

JETROLL 

DPTV-14 

HARTBURN 

MINK -6 

JETSLECT 

DPRC-12 

HAVEBASE 

DISP-13 

JLOOP 

DPRC-10 

HMSIN 

NNDF-9 

JOBXCHS+1 

DINT-11 

HMSOUT 

NNDF-3 

JTIME 

DPRC-11 

HOPALONG 

ORVN-21 

J23 

DPRC-11 

HOP29DSP 

ORVN-20 

KALCMAN3 

ATTM-6 

HORIZ 

MEAS-25 

KEPCONVG 

CONC-4 

HUNTEST 

ENRY-6 

KEPLERN 

CONC-1 

HUNTESTl 

ENRY-7 

KEPLOOP 

CONC-3 

IDLERETl 

DINT -16 

KEPPREP 

ORBI-20 

IFAILOK 

IMUC-10 

KEP2 

ENRY-12 

IGNITION 

BURN-27 

KEYCOM 

DATA-1 

IMUATTCK 

VBDF-5 

KEIRUPTl 

DATA-1 

IMUBAD 

IMUC-19 

KLEENEX 

DINT -4 

IMUCOARS 

IMUC-11 

KMATRIX 

DPRC-3 

IMUFINE 

IMUC-13 

LALOTORV 

COOR-9 

IMUFINED 

IMUC-14 

LAMBERT 

CONC-5 

IMUFINEK 

VBDF-4 

LAMBLOOP 

CONC-7 

IMUMON 

IMUC-3 

LAMfflJTER 

CONC-11 

IMUPULSE 

IMUC-15 

LASTBIAS 

IMUC-2 

IMJSTALL 

IMUC-19 

LAT-LONG 

COOR-8 

IMUZERO 

IMUC-10 

LEMCONIC 

ORBI-3 

IMUZER02 

IMUC-11 

LEMPREC 

ORBI-2 

INCORPl 

MEAS-1 

LEMVEC 

VBDF-13 

INC0RP2 

MEAS-1 

LFTFLGON 

VBDF-12 

INITDSP 

DINT -4 

LIGHTON 
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AUTOCHK (Entered from "GOTOPOOH" and "NDUTINPT") 

If bit 7(AUT0SEQ) of FLGWRDIO = 0: 

Return 

Set restart group 4 to cause a start at next line (priority 

13g) (tag here "AUTOCHKl"; from "PIKUP20") 

Proceed to address specified by AUTPOINT 

REND30S "V37^ if |nput program number in range 31-36 

TEMPMM = MMNUMBER + 50 (makes 31-36 into 81-86) 

If bit 9(UTFLAG) of FLAGWRD8 = 1: (enter here from "V37" for P79) 

Set bit 5(TRACKFLG) of FLAGWRDl = 0 

Set bit 9(UTFUG) of FLAGWRD8 = 0 

If bit 7(RNDVZFIG) of FIAGWRDO = 0: 

Set bit 7(AUT0SEQ) of FLGWRDIO = 1 


TS = 20 


Perform "AUTOSET" ("NDUTINPT", via "AUTOCHK", returns to next line) 

MMNUMBER = TEMPMM (TEMPMM same cell as least significant half of 

GDTl ) 

Proceed to "AUT037" ^ 

MENKDISP 


AUTPOINT = Retiim address 

TS = (MMNUMBER - 50) and perform "NEWMODEX" 

Perform "RELDSP" 

TS = 00017q 

Proceed to "GOPERFl": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed to "STARTAUT" 
othervd.se, proceed 

Set bit 7(AUT0SEQ) of FLGWRDIO = 0 

Proceed to address specified by AUTPOINT 
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STARTAUT 


(Entered from "KINKDISP" and "P79") 

If bit 8(AZIMFLAG) of FLGWRDll = 0: 

Set bit 8(AZIMFLAG) of FLGWRDll = 1 (effect of "option A") 
If bit ll(HDSUPFLG) of FLGWRDIO - 1: 

AZIMANGL = 0 

If bit ll(HDSUPFLG) of FLGWRDIO = 0: 

AZIMANGL = k (i-e- 1^0°) 

If bit l(RENDWFIG) of FLAGWRD5 = 0: 

Set bit 5(MANEUFLG) of FLGWRDIO - 1 
Set bit A(PTV93FLG) of FLGWRDIO = 1 
Set bit 9(VHFRFLAG) of FLAGWRD9 = 1 
Set bit l(PCFLAG) of FLGWRDIO = 0 
Set bit 7(AUT0SEQ) of FLGWRDIO = 1 
Proceed to address specified by AUTPOINT 
AUTOSET 

AUTTEMP = Return address 
MMNUMBER = TS 

Set restart group 4 to cause a start at next line 
AUTPOINT = AUTTEMP 
Proceed to "AUT037" 

BURNHOW 

AUTTEMP = Return address 

If |DELVLVC( - < 0: 

TS = 41 

Proceed to second line of "AUTOSET" 

TS = 40 

Proceed to second line of "AUTOSET" 
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) 



Set bit 15(PCMANFLG) of FLGWRDIO = 1 
Set bit 5 (TRACKFIG) of FLAGWRDl =1 

UTPIT = 0 (note UTYAW not set) 

AUTPOINT = "P791" 

Proceed to "STARTAUT" (exits to "P791") 

P221 

AUTPOINT = "P79A" 

End of job ("PIKUP20", since PCMANFIfi = 1, after doing R 6 l exits 

via "AUTOCHK" to "P79A": note jREFSMMA'^ must be available) 

P79A 

Establish "V 83 PERF" (priority 05g) 

Proceed to "P20TRACK" 

PSl 

Perform "MINKDISP" 

TS = 31 

Perform "AUTOSET" 

Perform "BURNHOW" 

Perform "AFTERBRN" 

Proceed to second line of "P82" 


PB2 

Perform "MINKDISP" 

Set bit 6(CSISFLAG) of FLGWRDll = 0 (Tag here "P82C0NT1") 

TS = 32 

Perform "AUTOSET" 

Perform "BURNHOW" 

Perform "AFTERBRN" 


R. 

targ^ 


NNl - 2 


(temporary storage for restart protection) 


sp 

Set restart group 4 to cause a start at next line 
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NNl = R 


targ^ 

sp 

If (NEl - 2) < 0: 


(i.e. in P32 was ^3) 


Proceed to second line of "P86" 


Set bit 6(CSISFLAG) of FIGWRDll = 1 


csi csi2 
If (NNl - 2) 0: 


(T . , loaded in "CmCL") 
' csi2 


(i.e. equals 2, since if less already exit 
means was 4 in P 32 ) 

Proceed to second line of "P8l" 


Proceed to second line of "P82' 


P83 


(as noted by J. Monroe, CG22, 
should be to third line instead) 


Perform "MINKDISP' 


TS = 33 

Perform "AUTOSET" 

Perform "BURNHOW" 

Set bit 5(LMACTFLG) of FLAGWRD2 = 1 (Causes LM state vector in normal 

GSM slots for targeting) 

Perform "AFTERBRN" 

Proceed to second line of "P84" 


m 

Perform "MINKDISP" 

TS = 34 

Perform "AUTOSET" 

Perform "BURNHOW" 

Perform "AFTERBRN" 

Proceed to second line of "P 85 " 
P85 

Perform "MINKDISP" 

TS = 35 

Perform "AUTOSET" 
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Perform "BURNHOW" 


Perform "AFTERBRN" 

TS = 35 

Perform "AUTOSBT" 

Perform "BURNHOW" 

Perform "AFTERBRN" 

MMNUMBER = 79 
Proceed to "AUTO 37 " 

PB6 

Perform "MINKDISP" 

TS = 36 

Perform "AUTOSET" 

If |dELVLVC| = 0: (all components below 2“^^ m/cs ^ 0.02 fps) 

Set bit lO(BURNFLAG) of FLGWRDIO = 1 (forces DELVOV to be set O) 

) Perform "AFTERBRN" 

Proceed to second line of "P 83 " 

TS = 52 

Perform "AUTOSET" 

If bit l(PCFLAG) of FLGWRDIO = 1: (set by "P 36 "j reset in "GYCRS" 

if do pulse torquing) 

TS - 41 

Perform "AUTOSET" 

Perform "AFTERBRN" 

Proceed to second line of "P 83 " 

Perform "BURNHOW" 

Perform "AFTERBRN" 

Set bit 15(PCMANFLG) of FLGWRDIO = 1 (Tag here "P86C0NT2") 
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TS = 20 


Perform "AUTOSET" ("PIKUP20", since PCMANFIG = 1, after R61 exits) 
Set bit 15 (PCMANF]jG) of FLGWRDIO = 0 
TS = 52 

Perform "AUTOSET" 

Proceed to second line of "P83" 

AfTERBRN 

AUTTEMP = Return address 
Establish "HARTBURN" (priority 07g) 

End of job 
HARTBURN 

If bit lO(BURNFLAG) of FLGWRDIO = 1: 

DELVOV = 0 
TS = 76 

Proceed to second line of "AUTOSET" 

If bit 3(TPIMNFLG) of FLGWRDIO = 1: (set 1 by "334/35. 5") 


(NOTE that once TPIMNFLG = 1, vail 
come here regardless of what tapgetinj 
was actually done; bit reset by "P74", 


BURNTMP2 = R 

— -pass3 



BURNTMPA = V 

^ — pass3 

Set restart group 4 to cause a start at next line 

V „ = BURNTMP3 
-^ass3 

R , „ = BURNTMP2 
-act3 - 

R ^ = BURNTMPl 
— pass3 “ 

-act3 "" BURNTMP4 
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(If bit 3(TPIMNFLG) of FLGWRDIO = l): 
Perform "S34/35.2" 

DELVOV = DELVLVC 
TS = 76 


Proceed to second line of "AUTOSET" 


If bit 5(bMACTFljG) of FUGWRD2 = 1: 

TS = NOMTIG 

Perform "ADVANCE" 

Perform "CDHMVR" 

TS 2 = - UPl 

TS„ = -imitR , , 

-3 -actl 

T^ = TS^ UPl 


DELVOV = 



DELVEET2 


(Tag here "NOTTPI"; bit 
set by "P83") 


DELVOV — CMIDOT (CMIDOT is "active" vehicle, i.e. LM) 

€/ 


TS = 76 


Proceed to second line of "AUTOSET" 

DELVOV = - DELVLVC (Tag here "NOTCDH" ) 

DELVOV = IMIDOT 
7 

TS = 76 


Proceed to second line of "AUTOSET" 

AUTOW (Entered from "REND 4 " if bit 7(AUT0SEQ) of FLGWRDIO = l) 

If bit 5(MANEUFLG) of FLGWRDIO = 1 : 

If bit 4(PTV93Fni) of FLGWRDIO = 1 : (Tag here "AUTOW 3 ") 

Proceed to "REND5C" (initialize W matrix) 
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(If bit 5(MANEUFm) of FLGWRDIO = l) : 

If bit 3(TPIMNFIG) of FLIWRDIO = 1: 

If bit 2(FULTKFLG) of FLGWRDIO = 0: (means have both 

VHF & optics) 

Proceed to "RE1ND5C" (initialize W matrix) 

C0UNT3MK = 1 (Tag here "AUT0W4") 

Proceed to "AUT0W2" 

If C0UNT3MK i 0: 

Proceed to "AUT0W2" 

If bit 3(TPIMNFIJG) of FLGWRDIO = 1: (Tag here "AUTOWIA") 

If bit 8(P35FLAG) of FLGWRDIO = 1: (NOTE that once TPIMNFLG = 1, 

come here regardless of what 

Proceed to "REND5C" (initialize W matrix) program is 

actually in use) 

Proceed to "AUT0W2" 

TS == T. (Tag here "AUTOWl") 

ig 

If bit l(PCFLAG) of FLGWRDIO = 1: 

TS = T 

::an 

- AGEOFW) < 0: 


cdh 

If (MARKTIME - C 


wrdtime 
Proceed to "AUT0W2" 


(i.e. W matrix not 
old enough) 


If (OLDMKTME 

C0UNT3MK = 1 
Proceed to "AUT0W2" 


MARKTIME + C .,,,,)< 0: 

minblktm 


(i.e. too long since 
last processed mark) 


TS^ = MARKTIME - TS 


(NOTE that this means if delay in answering 

initial P3x display, may 
Set bit 4(PTV93FLG) of FLGWRDIO = 0 force an initialization) 


If TS^ > 0: 


Proceed to "REND^C 


(initialize W matrix) 


If (TS, + C,. , + C,, „ ) < 0: (i.e. enough time before 

1 fincmptm tbefcomp^ ' -n a 

^ maneuver available ; 

Set bit 4(PTV93FLG) of FLGWRDIO = 0 

Proceed to "REND5C" (initialize W matrix) 
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If (TS + K . - C^. , + C, ,T, , - AGEOFW - C 

'' 3mincon fincmptm brnblktm maxMtxme 

Set bit 4(PTV93FLG) of FLGWRDIO = 1 
Proceed to "AUT0W2" 

AUT0W2 

Set bit 6(DRBWFLAG) of FUGWRD3 = 0 
If bit l(REKDWFLG) of FLAG’WRD5 = 0: 

Proceed to "REND5C" (initialize W matrix) 

Set bit I(RENDWFLG) of FLAGMID5 = 1 (unnecessary) 

Proceed to "REND7" 

P52AUT0 (Entered from "PR0G52" if bit 7(AUT0SEQ) of FLGWRDIO = l) 

TS = ^ REFSMMAT^ (note that no check for direction of bum is made) 

If bit l(PCFLAG) of FLGWRDIO = 0: (after bum) 

TS = - TS 

-snd ™it(i REFSMMATq + TS) 

Z , = REFSMMAT, 

-smd —o 

Y , = unit(Z , X ,) 

—smd —snd —smd 

Set bit 4(PFRATFLG) of FLAGWRD2 = I 
Proceed to "P52D" 

PERF20 (Entered from "P52D" if bit 7(AUT0SEQ) of FLGWRDIO = l) 

TS = 20g 

Proceed to "GOPERFI" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed to "GYCRS" 
othervd.se, proceed 

If bit l(PCFLAG) of FLGWRDIO = I: (i.e. before burn, not 

yet torqued) 

Proceed to second line of "GOTOPOOH" 

Perform "ALARM" (pattern 0402g) 

Proceed to "PERF20" 
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Quantities in Computations 

See also list of major variables and list of routines 


AGEOFW: See Measurement Incorporation. 

AUTPOINT: Single precision cell used for return address storage in the 

minimum key rendezvous logic . It coxfLd be considered as a "pointer" 
indicating the progress of the computations through the P8x "driver" . 

AUTTEMP: Single precision cell used as temporary storage for information to 
be placed in AUTPOINT (to simplify some program logic and for the sake 
of restart protection) . 


AZIMANGL: See Orbital and Rendezvous Navigation. 


BURNTMPl, BURNTMP2, BURNTMPl, BURNTMP4: Cells used for temporary storage of 
active and passive vehicle vectors in "HARTBURN" (to allow them to be 
exchanged without causing difficulty in the event of a restart). 


^hrnhlktm' precision erasable memory constant, program notation 

"BRNBLKTM", scale factor B28, units centi-seconds . Least 
increment is I63.84 seconds. Used in the determination of age of 
W matrix following next maneuver (typical value when in fixed memory 
was 5 least increments), for Cj^^axwtime increments about 13.653 


: Single precision erasable memory constant, program notation 
P "FINCipTM", scale factor B28, units centi-seconds. Least 
increment is I63.84 seconds. Used to allow for length of time of 
final targeting computation (typical value when in fixed memory was 
3 least increments), e.g. for check. Three increments about 8.192 

*^maxwt-imp’ ^^^§1® Precision erasable memory constant, program notation 
"MAXWTIME", scale factor B28, units centi-seconds. Least 
increment is I63.84 seconds. Used to determine if W matrix age 
will be excessive after next maneuver (typical value when in 
fixed memory was 22 least increments, or about 6O.O75 minutes). 


^minblktm" ^^^§1® precision erasable memory constant, program notation 
"MINBLKTM", scale factor B28, units centi-seconds. Least 
increment is I63.84 seconds. Used to check whether time since last 
mark excessive (if so, COUNT3MK is set l). Typical value when in 
fixed memory was 2 least increments, or about 5.46I minutes. 


^tbefconiD* precision erasable memory constant, program notation 

"TBEFCOMP", scale factor B28, units centi-seconds. Least 
increment is I63.84 seconds. Used to check if a sufficient time 
remains before the final targeting computation so that W matrix 
reinitialization should take place. Typical value when in fixed 
memory was 5 least increments, or about I3.653 minutes. 
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C , . : Single precision erasable memory constant, program notation 

^ "WRDTIME", scale factor B28, units centi-seconds . Least increment 

is 163.84 seconds. Used to check if siifficient time has elapsed since 
the previous W matrix initialization. Typical value when in fixed 
msmory was 9 least increments, or about 24.576 minutes (recently^41 min). 

CMYDOT: See Burn Control. 

COUNT3MK: Single precision counter, scale factor BI4, iinits counts, used 
to control the initialization of the W matrix after three marks 
accimulated (hence the name). It is incremented in "REND12", where 
it is also set zero after reaching 3. If non-zero, checks in 
"AUTOW", except immediately following a bum, are bypassed. 

DELVEET^: See Rendezvous Computations. 

DELVLVC: See Burn Control. 

DELVOV: See Burn Control. 

^3mincon’ precision constant, program notation "3MINCON", scale 

factor B28, units centi-seconds. Used double precision with 
octal value 00001^ 00002^,, corresponding to I63.86 seconds or 
2.731 minutes. 

^dv40d41' ^o’^stant, program notation "DV40/4I", scale factor B7, luiits 

meters/centi-second. Value is O.O21336 x 2“'^, corresponding to 
7 X 0.3048 X 0.01 X , where first term is value in fps, second 
converts to meters, third to centi-seconds, and foiirth is scale factor. 

IMIDOT: See Burn Control. 


MARKTIME: See Measurement Incorporation. 
MMNUMBER: See General Program Control. 
Ml: See Rendezvous Computations. 

NOMTIG: See Burn Control. 


OLDMKTME: See Measiirement Incorporation. 


^ctl^ — act3’ ^ass3’ 


See Rendezvous Computations . 


R, : See Rendezvous Computations. Used in "P82" as temporary storage for 
® restart protection purposes (scaling, of course, is BI4 for R, 
there). 

sp 

'^cdh^ '^csi’ '^csi2' Rendezvous Computations. 


TEMPMM: Temporary storage for program number to be used in searching the 
program tables in V37 logic (in range 81-86, or 79 if that program 
selected), scale factor BI4, single precision. Used in "REND3OS" to 
allow start-up of P20 and then initiation of desired program. 
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ULOS : See Rendezvous Computations . 

UNRM: See Rendezvous Computations. 

UPl: See Rendezvous Computations. 

UTPIT: See Orbital and Rendezvous Navigation. 
V xQj ^ q‘ 2®® Rendezvous Computations. 

SLC pSLSS^ 

-smd^ -smd’ -smi' Inflight Alignment. 
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Noun Definitions 


DPTEST 

If TS^ =4, 5, 7, 10^ or 13, indicate double precision (return 
no calling address +2) 

If TS^ = 0, 1, 2, 3, 6, 8, 9, 11, or 12, indicate single precision 
(retiirn to calling address +l) 

GTSFOUT 

SFTEMPl = 

Return 


GTSFIN 

SFTEMPl = K 

SI irifpg 

Return 

LODNNTAB 

NNADTEM = K , , 

'^^“nounreg 

NNTYPTEM = 

^^■^NOUNREG 
If NOUNREG < 

MIXER = 1 

Return 

MIXER = 2 

TS = NOUNREG - 40 

RUIMXTEM = 

TS = bits 10-1 of NNADTEM 
IDADITEM 
IDAD2TEM 
IDAD3TEM 
Return 


K 


idtb, 


TS 


%dtb, 

idtb, 


TS+1 


TS+2 


NOTE: IDAD^TEMj^ refers to: 

IDADITEM if i = 1 
IDAD2TEM if i = 2 
IDAD3TEM if i = 3 
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DECDSP3 


Proceed to address given by the following table: 


TS 


1 


Address 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 


"DSPALARM" (after setting DSPCOUNT = -19) 


"DSPDCEND" 

"DEGOUTSF" 

"ARTOUTSF" 

"DPIOUTSF" 

,"DP20UTSF" 

"OPDEGOUT" 

"DP30UTSF" 

"HMSOUT" 


"M/SOUT" 


''DP20UTSF" 

"AROUTISF" 

"2INT0UT" 

"DPFRACOT" 


DEGOUTSF 

If MPAC+0 -0: 

Set bit 15 of MPAC+0 = 0 
SFTEMPl = K, , , 

dgtbQ 

MPACdp = %gtbQ MP4C+0 + SFTEMPl 

Proceed to ''DSPDCEND” 

ARTOUTSF (no shift) 

If MPAC+0 = -0: 

MPAC , = -0 

dp 

Proceed to "DSPDCEND” 

MPACdp "" SFTEMPl MPAC+0 
Proceed to "DSPDCEND” 

DPIOUTSF (left shift of 14 ) 

Perform "DPOUT” 

MPACdp ~ ^^'^*^tp (l®!! shift of 14, overflow information lost) 

Proceed to "DSPDCEND” 
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o 


DP20UTSF 


(no shift) 




Perform "DPOUT" 

Proceed to "DSPDCEND" 

QPDEGOUT 

TS = MPAC+0 
If TS:i.+0: 

MPAC+0 = MPAC+0 + K 2 q^ (overflows propagate to bit 15) 
If TS4 -0: 

MPAC+0 = MPAC+0 + K2q^ 

If MPAC+0^ 0: (includes case where TS = — O) 

MPAC+0 -= MPAC+0 + K^gi 

If MPAC+0 -0: 

Set bit 15 of MPAC+0 = 0 

SFTEMPl = K, , , 
dgtb2 

MPAC^p = %gtb2 + SFTEMPl 

Proceed to "DSPDCEND" 

DP30UTSF (left shift of 7) 

Perform "DPOUT" 

MPACfp = 2'7 MPAC^p (left shift 7, OVFINP set if overflow) 
Proceed to "DSPDCEND" 


HMSOUT 


If MIXER = 1: 

TS = NOUNADD 
If MIXER = 2: 

EBANK = bits 11-9 of IDADITEMj3^,quNT+ 1 
TS = 1400g + bits 8-1 of IDADITEMj3ecounT+1 


(i.e. IDAD2TEM 
for DECOUNT = l) 
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with sign agreement forced 



Perform "SEPSECNR" 

MPAC^^ = K ^ MPAC, 
dp scn2 dp 

DSPCOUNT = 4 

Perform "DSPDECWD" (display seconds in R 3 ) 

Perform "SEPMIN" 

TS 2 = MPAC+0 (whole hours) 

If MPAC+1 = -0: 

MPAC^ = -0 
dp 

If MPAC+1 7 ^ - 0 : 


"™<=dp ‘ "Vncna “P*"! 


DSFCOUNT = 9 

Perform "DSPDECWD" (display minutes in R2) 
If TS 2 = -0: 



If TS 2 ^ -0: 

MPAC^ = K, 


dp %rcnl ^^2 


DSPCOUNT = 14 

Perform "DSPDECWD" (display hours in Rl) 
Proceed to address specified by ENTRET 


M/SOUT 


If MIXBR - 1: 


TS = NOUNADD 


If MIXBR = 2: 


EBANK = bits 11-9 of IDADITEM, 


'DECOUNT+1 


(i.e. IDAD2TEM 
for DECOUNT = 1) 


TS = 11+00 Q + bits 8-1 of IDADITEM, 

a — 


DECOUNT+1 
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f 


o 




MPAC , = Emq } with sign agreement forced 

ap 

TS - MPAC^^ 
dp 

Perform "SEPSECNE" 

“ '^msonlZ^ 

MPAC^ = MPAC^ + K ^ sgn MPAC+1 
dp dp rndcn ° 

Perform "SEPSECNR” 

MPAC^ = K, . MPAC^ 
dp hisec dp 

DSPCOUNT = DSPCOUWT - 3 

Perform "DSPDC2NR" (seconds in digits 4 and 5) 
CODE = 0 

COUNT = K , : - 2 

^DECOUNT 

Perform "DSPIN" (blank digit 3) 


Perform "SEPMIN" 


MPAC, = K, . . MPAC+1 
dp himin 

DSPCOUNT = K 


^'^DECOUNT 

Perform "DSPDC2NR" (minutes in digits 1 and 2) 


Proceed to second line of "DSPDCEND" 


SEPSECNR 

MPAC, = K 


scnl MPA^dp 


tp 

HITEMOUT = MPAC , 
dp 

MPAC, = 2^ MPAC, 

tp tp 

MPAC^ = 2^ MPAC,j. (left shift 14, overflow information lost, 

^ leaves seconds in MPAC , ) 

dp 

Return 


(left shift 2, OVFINP set if overflow) 
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SEMIN 


MPAC = HITEMOUT 
dp 

Set bits 12-1 of MPAC+1 = sign bit (i.e. zero magnitude, masking 
out former information on seconds) 

MPAC, = K MPAC,^ 

tp mncnl dp 

Return 

AROUTISF (left shift of 14, single precision operand) 

If MPAC+0 = -0: 

MPAC^ = -0 
dp 

Proceed to "DSPDCEND" 

MPAC, = SFTEMPl MPAC+0 
tp 

MPAC^p == 2^ MPAC^p (left shift of 14, overflow information lost) 
Proceed to "DSPDCEND" 

2INT0UT 


Perform "5BLANK" 
Perform "+0N" 

TS = MPAC+0 
Perform "DSPDECVN" 
DSPCOUNT = K 


(blanks all digits) 


rd 


(puts first cell in digits 1 and 2) 
- 3 


DECOUNT 


If MIXER = 1: 

TS = NOUNADD 
If MIXER = 2: 

EEANK = bits 11-9 of IDADITEMpg(.pj^^_j^^ 

TS = 1400g + bits E-1 of IDADITEMj^g^Qyjj^^ 

'“’“dp = ®rs. 

^ dp 

TS = MPAC+1 

Perform "DSPDECVN" (puts second cell in digits 4 and 5) 
Proceed to second line of "DSPDCEND" 
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DPFRACOT 


If MKBR = 1: 

TS = NOUNADD 
If MIXBR = 2: 


EBANK = bits 11-9 of IDADITEM^g^^^^^^ 

TS = 1400g + bits 8-1 of IDADITEM^^^q^^^^ 

Proceed to "DSPDCEND" 


PUTDCSF2 


Proceed to address given by the follovdjig table: 



Address 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 


DEGINSF 


"ALMCYCLE" (noun octal only) 
"BINROUND" 

"DEGINSF" 

"ARTHINSF" 

"DPINSF" 

"DPINSF2" 

"OPTDEGIN" 

"DPINSF" 

"HMSIN" 

"DSPALARM" (can't load MMBSS) 
"DPraSF4" 

"ARTINISF" 

"DSPALARM" (can't load XXBYY) 
"DPFRACIN" 


“'’“tp = ‘'dgcnl ”™dp 

MPAC = MPAa + t ^ , sgn MPAC+1 If overflow, set OVPIlfP 

tp tp btll 

MPAC^p = 2-^ overflow, set OVFINP 


Proceed to "DEGINSF2" 


DEG1NSF2 

MPACtp = 2^ MPAC^p (left shift 1) If overflow, set OVFINP 
If OVFINP set (i.e. non-zero), proceed to "ALMCYCLE" 

MPACTP = 2^ MPACTP (left shift 1) 
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If overflow takes place: 

OVFINP = 1 sgn MPAC+0 
If MPAC+0 = -0: 

MPAC+0 = +0 
If MPAC+0 < 0: 

MPAC+0 — MPAC+0 + 0000 Ig (for twos complement) 

If OVFINP - 0: 

TS - MPAC+0 

Proceed to address specified by DECRET 
If OVFINP > 0: 

Set bit 15 of MPAC+0 = 1 

TS = MPAC+0 

Proceed to address specified by DECRET 
If MPAC+0 = +0: (OVFINP is <0 if come here) 

MPAC+0 = AOOOOg 

TS = MPAC+0 

Proceed to address specified by DECRET 
Set bit 15 of MPAC+0 = 0 
TS = MPAC+0 


Proceed to address specified by DECRET 

ARTHINSF (left shift of 14) 

MPAC, = SFTEMPl MPAC^ 
tp dp 

If MPAC+0 ^ 0, proceed to "ALMCYCLE" 
MPAC^p == 2^ ^P^^tp shift of 14) 

Proceed to "BINROUND" 

DPINSF2 (left shift of ?) 


MPACfp SFTEMPl MPAC^p 

MPACfp = shift of 7, OVFINP set if overflow) 

Proceed to second line of "DPINSF" 
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OPTDEGIN 


If MPAC+0 -0, proceed to "ALMCYCLE" 
MPAC+0 = MPAC+0 + K 


MPAC, = K , - MPAC , 

tp dgcn2 dp 


MPAC^ = MPAC^ 
tp tp 


Proceed to "DEGINSF2' 


ngp2 
P 

^ Stl2 


If overflow, set OVFINP 


HMSIN 


If bits 5-3 of DECBRNCH ^ lll^: 

VERBSAVE = -25 (force verb 25) 
Proceed to "ALMCYCLE" 


(3 decimal Inputs not 
received) 


“ ^hecn “P^^dp contains hours) 

MPACtp = MPAC^P + MPAC+2 

If MPAC+0 7 ^ 0, proceed to "ALMCYCLE" 

= ^hrcon MPAC+1 

If MPAC+0 7^ 0, proceed to "ALMCYCLE" (input exceeded 745 hours) 
TS = 2^4 MPACTP (left shift 14) 

MPACdp = (YREG, YREGLP) (^^^C^^p loaded with minutes) 

MPAC 


MPAC, „ = K , 

t,p whecon 


MPAC, 


MPAC, 


dp 

+ MPAC+2 




j \ J.UJ. rwj I 

tp tp 

If MPAC+0 7^ 0, proceed to "ALMCYCLE" 

If \MPAC+ll> proceed to "ALMCYCLE" 

+ Vincon «™+l 

If |ts( ^ 2^® centi-seconds, proceed to "ALMCYCLE" 

MPACdp ~ (ZREG, ZREGLP) (MPACdp loaded with centi-seconds) 

“P^^^tp = Wcon MPACdp 

MPACtp ^ ^P4C^p + MPAC+2 

If MPAC+0 f 0, proceed to "ALMCYCLE" 
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If |MPAC+1| > proceed to "ALMCYCLE" 

TS = TS + MPAC^p 

If |TS/-i.2^^ centi-seconds, proceed to "ALMCYCLE" 

Force sign agreement of TS (maximum time is 2^® - I centi- 

seconds, i.e. 745 h, 39 m^ 14*55 

%OUNADD TS^p sec; or 3 I d, I hr, 39 m, ]4.55 s) 

Proceed to ’'LOADLV” 

DPINSF4 (left shift 3 ) 

MPAC^p = SFTEMPl MPAC^p 

MPAC^p = 23 MPAC^p (left shift of 3, OVFINP set if overflow) 

Proceed to second line of "DPINSF" 

ARTINISF (no shift) 

MPAC,^ = SFTEMPl MPAC , 

T'P dp 

Proceed to "BINROUND" 

DPFRACIN 

Proceed to 4th line of "DPINSF" 
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Quantities in Computations 


See also list of major variables and list of routines 


CODE, COUNT: See Data Input/Output. 

DECBRNCH, DECOUNT, DECRET: See Data Input/Output . 

DSPCOUNT: See Data Input/Output. 

EBANK, ENTRET: See Data Input/Output . 

HITEMOUT: Value of number of minutes in time quantity (computed in 

"SEPSECNR" for use in "SEPMIN"), scale factor Bl6, units minutes. 
Least significant 12 bits of least significant half contain 
fractional portion of minutes, and therefore must be blanked 
in "SEPMIN" for proper computation of the number of integral 
minutes in the time argument. Least significant half "LOTEMOUT". 

IDADITEM (l = 1 , 2 , 3 ): Temporary storage for information from imbced- 
noun tables (see below) for first (Rl), second (R2), and third 
(R 3 ) components of noun. The Rl component, of course, is displayed 
in register Rl on the DSKY, etc. 

^20b‘ Single precision constant, program notation "20BIAS", scale factor 
B— 3 j units revolutions. Octal value is l6040g, corresponding to 
about 19 . 7754 °. 

^59min" Single precision constant, program notation "59MIN", scale 
factor BI 4 ,, units minutes. Value is 00073^, corresponding to 
59 minutes. ° 

^5999sc' Single precision constant, program notation "59.99SEC", scale 
factor BI 4 , units centi— seconds . Value is 13557nj corresponding 
to 5999 centi-seconds (or 59*99 seconds). 

^btll" Single precision constant, urogram notation "BlTll". As used, 
value corresponds to (^ x 2“^) of full scale, or one-half the 
least increment on the single precision result for "DEGINSF". 

%tl2‘ Single precision constant, program notation "BIT12". As used, 
value corresponds to x 2 ~^) of full scale, or one-half the 
least increment on the single precision result for "OPTDEGIN". 

^d 1 * Constant, program notation "DEGCONl", scale factor B 3 , value 

5.555555555 X 2 S. Value corresponds to (IOOO/I 8 O) x 2 “ 3 ^ where 
first term converts from XXX. XX° to B-1 revolutions, and second is 
the constant's scale factor. 
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K. 2 * Constant, program notation "DEGC 0 N 2 ", scale factor B 2 , value 
2.222222222 x 2 ~ 2 . Value corresponds to (100/45) x 2 ~'^ , where 
first term converts from XX.XXX° to B-3 revolutions, and second 
is the constant's scale factor. 


Kd tb • Constant, program notation "DEGTAB", scale factor BO, octal value 
C05605g 03656g, corresponding to decimal 0.18. Value equivalent 

to 180/1000, to convert from B-1 revolutions to XXX. XX°. 


Kdgtb • Constant, program notation "DEGTAB +2", scale factor BO, octal 
2 value iGllAg 3 l 463 g 5 corresponding to decimal 0.45* Value 
equivalent to 45/100, to convert from B -3 revolutions to 
XX.XXX°. 


%iimin* Single precision constant, program notation "HIMINCON", scale 
factor BO, value 23346g. Value corresponds to (0.6 + 2“'). 

\isec‘ Single precision constant, program notation "HISECON", scale 
factor BO, value 23147g- Value corresponds to (0.6 + 2“^). 

%rcnl' Constant, program notation "HRCONl", scale factor B-14, 
value 0 , 16384 . Value corresponds to 10 “^ x 2^. 

^hrcon' Constant, program notation "HRCON", scale factor B28, units 
centi-seconds . Value is 00025g 37100g, corresponding to 
360,000 (or 3600 seconds). 

%dtb. ' '^^Sle of constants for mixed noun information, program notation 
i "IDADDTAB", giving address and scaling routine information. 

See information below. 

^mincon’^^’^^^® precision constant, program notation "MINCON", scale 

factor BI 4 , units centi-seconds. Value is 13560g, corresponding 
to decimal 6 OOO (or 60 seconds). 

\incnl‘ Constant, program notation "MINCONl", scale factor B-2, value 
02104 g 10422 g, corresponding to ( 1 / 60 x 2 ^ + 2 “^®), to give 

hours scaled BI 4 in MPAC+0 when return from "SEEMIN" (and fraction 
of an hour, BO, in MPAC+l) . 

\incn2- Constant, program notation "MINC0N2", scale factor BO, value 
OOOllg 32445g- Value corresponds to 60 x 10 “ 5 . 

^mscnl' Constant, program notation "M/SCON 3 ", scale factor B28,' units 
centi-seconds. Value is 00025g 370l6g, corresponding to 
359,950 centi-seconds (or 59 minutes 59.5 seconds). 
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\scnl2’ Notation assigned to effect in program of constants "M/SCONl" 
and "M/SC0N2'', both single precision with octal values 77753 
and 41126g respectively. The constants information, for program 
convenience, is stored in negative form (with magnitude of each 
decremented by one least increment for convenience in forming the 
absolute value). The net effective value in the program of the 
combined constant (scale factor B28, units centi-seconds) is 
00025g 36652g, corresponding to 359,850 centi-seconds (59 minutes 
58.5 seconds). A value of time of this value or more would be 
displayed in "M/SOUT" as 59 59, with appropriate sign. 

\x:cn‘ Single precision constant, program notation "MIXCON”, scale 
factor B 14 , value 00050g, corresponding to a noun of 40. Nouns 
of this value or above are considered "mixed nouns". 

^ngl" Single precision constant, program notation "NEGl", scale factor 
B- 3 , units revolutions, used to convert from twos complement to 
ones complement information. Value is - 2~1^ (minus one least 
increment) . 

^ngp2‘ Single precision constant, program notation "NEG.2", value 
7152 / 0 * Octal value equivalent to — 6250g: since the constant 
is adoed to information scaled XX.XXX°, value corresponds to 
100 X (- 0.197754), or - 19-7754° (cf. K20b) * 

) ^ntb. • '^^Nle of constants, program notation "NMADTAB", for loading; 

1 NNADTEM. See information below. 

K^ty. = Table of constants, program notation "NNTYPTAB", for loading 
NNTYPTEM. See information below. 

^rdj' Data Input/Output . 

N-rndcn" Constant, program notation "RMDCON -1", scale factor B28, units 
centi-seconds. Value is OOOOOg 00062g, corresponding to 
50 centi-seconds ( 0.5 second). 

^rtmtb. • Table of constants used to specify scaling routines for mixed 
^nouns, program notation "RUTMXTAB". See information below 
(is used to load RUTMXTEM) . First table cell is for noun 40. 

^scnl’ Constant, ^program notation "SECONl", scale factor B-12, value 

l.b66666666E-4 X 2-^^, corresponding to (I/ 6 OOO) x 2^^{to convert 
centi-seconds scaled B28 to minutes scaled BI 6 , cf. HITEMOUT). 

^scn2' Constant, program notation "SEC0N2", scale factor BO, value 
01727g 01217g. Value corresponds to 60 x 10 “ 3 . 
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^sfin • ^ input constants selected in "GTSFIN", located 

0 in consecutive cells starting at "SFINTAB" . Value is 00006g 
03240g, scale factor B28. Value corresponds to 10 ^ x 2“^®, 
to convert from the fraction produced by "NUM" to an integer with 
scale factor B28. 


K 


sfjn ■ Constant, value 0, not assigned. 


Ksfin : Constant, value 0, used to set initial condition for SFTEMPl 

2 for use in "DEGINSF” and "OPDEGIN”. The scaling routine itself 
selects the appropriate scaling constants. 


Kgfin : Constant, value 10707g 03435g, scale factor BO. Value 

3 corresponds to one least increment more than (lOO x I/ 36 O), 
to convert from an input of XX.XXX° to BO revolutions. Since 
there are 2 ^-^ gyro pulses per revolution, the constant could also 
be considered to convert to gyro pulses, scale factor B21. 


Kgfi : Constant, scale factor B3, value 13070g 34345g. Value corres- 
^ ponds to one least increment more than (lOOO x I/ 36 O) x 2 ~^ , 
to convert from XXX. XX° to B3 revolutions (hence use Routine #10, 
"DP1NSF4", to shift result left 3 for a scaling of BO revolutions). 


K fin : Constant, value 00005g 2l6l6g, scale factor BI 4 . Value 

5corresponds to (1000 x I/I 8 O) x 2 ~'^, to convert from XXX. XX° 
to B-1 revolutions (after performing a left shift of I 4 ). Not used. 

K „. : Constant, value 26ll3g 31713rtj scale. factor BO. Value 

^ ^^^6 corresponds to 10^ x 0.45359237 x 2"^ , to convert between 
XXXXX. pounds and BI 6 kilograms (single precision). 


K „. : Constant, value OOO 7 O, 

® ^^7 corresponds to 10^ x li 


20460g, scale factor BO. Value 
52 X 2“29^ to convert between XXX .XX 
nmi and meters scaled B29 (there are I 852 meters in a nautical 
mile) . 


K : Constant, value pl065g 05740gi scale factor BO. Value 

8 corresponds to 10^ x 1852 x 2^29, to convert between XXXX.X 
nmi and meters scaled B29 (there are 1852 meters in a nautical 
mile) . See K 


sfot 


8 


K . : Constant, valiie 11414* 31463*, scale factor B3. Value 

9 corresponds to lO^ x 10“2 x O .3048 x 2“”^ x 2 ~^ , for the 
net value to convert from XXXXX. feet/second to BIO meters/ 
centi-second (hence use Routine #10, "DPINSF4", to shift result 
left 3 for scaling of B7 meters/centi-second) . 
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^sfirijQ* Constant, value 07475g l6051g, scale factor BO. Value 
corresponds to 10^ x 10~2 x O .3048 x 2 ~'^ , in order to 
convert between XXXX.X fps and meters/centi-second with scale 
factor B7.. 

Kgfin •• Constant, value OOOOlg 03434g, scale factor BI 4 . Value 

corresponds to 10^ x (l/90) x 2~1^, to convert from XX.XXX° 
to B-2 revolutions (after performing a left shift of 14 via 
Routine # 3 , "ARTHINSF"). 


Ksfin : Constant, value 00002^ 22245g, scale factor BI 4 . 
12 corresponds to lO^ x ( 3600 / 85 : 41 ) x 2 ~ 1 ^ x 2 “ 1 ^ mi: 


Value 

, . . , - - minus one 

least increment, to convert between XXX. XX° and BI 4 "CDU 
actuator pulses" (after performing a left shift of I 4 via 
Routine # 3 , "ARTHINSF"). There are 85 . 41 arc seconds per 
CDU actuator pulse . 


K f. : Constant, value 00014^ 3 560?^, scale .factor BI4. Value 
^13 corresponds to 10^ x 1.555817943 x 2-20 ^ 2-14, to convert 
between XXXXXbb. slug-feet^ and B20 kilogram-meters^ (after 
performing a left shift of I4 via Routine #3, "ARTHINSF"). 

The "bb" means that the input is in imits of 100 slug-feet^. 

Same constant could also be used to convert between XXXXXbb. 
foot-pounds and B20 newton-meters. Constant is not used (since 
functions are computed in "FIXCW" as determined from inputs 
of vehicle mass). 

^sfin ■ ^o’^stant, value 07606g 06300g, scale factor B3. Value 

14 corresponds to one least increment more than 10^ x 
(1/25766.1973) X 2-1 X 2-3, to convert between XXXXX. fps 

and B1 VSAT units (used in entry, where 1 VSAT = 25766.1973 fps), 
after performing a left shift of 3 via Routine #10, "DPINSF4" . 

Kgfin : Constant, value 16631^ 11307g, scale factor BO. Value 

15 corresponds to IcA x (1/21622.4965), to convert between 
XXXX.X nmi and BO revolutions. The denominator conversion 
value corresponds to 2Trx 6373338 / 1852, i.e. an earth 
radius equal to the value of K (see Burn Control) used 
to derive circumference. 


Ksfin : Constant, value ^OOOg OOOOOg, scale factor B7. Value 

16 corresponds to lO^ x (l/25) x2~^, to convert between 

XXX. XX g's and BO "G— units" (25 g's, as used in Entry Computations), 
after performing a left shift of 7 via Routine #5, "DPINSF2" . 

Ksfin • Co’^stant, value pi76g 14235g, scale factor BO. Value 

17 corresponds to 10^ x ( 1/3441 •3272) x 2 , to convert between 

XXXX.X nmi and radians scaled B2 (using the pad radius given 


for K 


sfin. 


). 


15 
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K : Constant, value 3Q480 x 2“^'^, scale factor BO. Value 

sfiUig corresponds to 10^ x O. 304 S x 2“^°, to convert between 
XXXXX. feet and meters scaled BI 9 (there are O. 304 S meters 
in one foot) . 

K : Constant, value 3Q»48 x 2~^ , scale factor BV^ Value 

^ ^^^19 corresponds to 10^ x O. 3 O 48 x 10”'^ x 2^ x 2“' , to convert 
between XXXX.X fps and BO meters/centi-second (first term is 
for XXXX.X fps, second converts to meters, third converts to 
centi-seconds, fourth is for scaling of final answer, and fifth 
is scale factor of constant), after a left shift of 7 via Routine 
#5, "DPINSF2". 

Kgfot • First of a set of output constants selected in "GTSFOUT”, 

*^located in consecutive cells starting at "SFOUTAB" . Value is 
05174g 1326lg, scale factor BO, with value corresponding to 
10~5 X 2^, to convert from an integer with scale factor BI 4 
to XXXXX. 


K, 


: Constant, value 0, not assigned. 


K 


sfot^: Constant, value 0, used to load SFTEMPl with proper initial 
value for use in "DEGOUTSF" and "OPDEGOUT". 


K „ , ; Constant, value 00714^ 31463*, scale factor B7 . Value 
®^°^3 corresponds to ( 36 O) x°10"^ x°2“' , to convert from BO 

revolutions to XX.XXX°. Since there are 2^^ gyro pulses per 
revolution, the constant could also be considered to convert 
from gyro pulses scaled B21. 

K „ , : Constant, value 13412* 07534*j scale factor BO. Value 

corresponds to ( 36 O) x°10“3j °to convert from BO revolutions 
to XXX .XX°. 


K _ , : Constant, value 05605* O 3656 *, scale factor BO. Value 
®^°^5 corresponds to (iBO) x° 10 “ 3 ^ to convert from B-1 revolutions 
to XXX .XX°. Constant is not used. 

K „ . : Constant, value 00001* I 617 O*, scale factor B^. Value 
corresponds to 2^^ x (5/0.45359237) x lO'^ x 2 to 
convert between BI 6 kilograms and XXXXX. pounds. 

K „ , : Constant, value 00441* 34306- , scale factor BI 4 . Value 
®^°^7 corresponds to 2^9 x (5/1852) x 10 x 2 “ 14 ^ to convert 
between B29 meters and XXX. XX nmi. 

K „ , : Constant, value 07176* 2l603*, scale factor B7. Value 
®^°^8 corresponds to (2^9) x (I/I 852 ) x 10 ^ x 2"7, to convert 
between B29 meters and XXXX.X nmi (there are 1852 meters in a 
nautical mile). For N73, converts from units of meters/lOO 
(computed by P2l) to XXXXXb. nmi. 
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n 



^sfot ■ j value 15340g 15340gj scale factor BO (equality of 

9 two halves of constant is correct). Value corresponds to 
(100 X 2'/0.304S) X 10“5, to convert from the navigation scaling 
of velocity (B7 meters/centi-second) to XXXXX. fps. 

K ~ . : Constant, value 01031^ 21032-, scale factor B7. Value 

^10 corresponds to (100 x 27/0.3048) x 10“^ x 2”' plus one least 
increment, to convert from the navigation scaling of velocity 
(B7 meters/centi-second) to XXXX.X fps. 

Ksfot = Constant, value 34631g 23146-, scale factor BO. Value 

11 corresponds to (90) x I0“^, to convert from B-2 revolutions 
to XX.XXX°. 

K f t : Constant, value 14340- 24145-, scale factor BO. Value 

12 corresponds to (85. 41/3600) x 2^ x 10~^, to convert between 
B14 "CDU actuator pulses" and XXX .XX®. There are 85. 41 arc 
seconds per CDU actuator pulse. 

Ksfot ■ value 02363g 03721-, scale factor BO. Value 

13 corresponds to 2^° x (1/1.355817948) x 10"7, to convert 
between B20 kilogram-meters^ and XXXXXbb. slug-feet^ (the 
"bb" means that output is in units of 100 slug-feet^) . 

Same constant could also be used to convert between B20 newton- 

meters and XXXXXbb. foot-pounds. Constant is not used (see 

K ). 
sf in^2 

Ksfot : Constant, value 20373g 02122g, scale factor BO. Value 

14 corresponds to 2^ x 25766.1973 x 10“^, to convert between 
B1 VSAT units and XXXXX. fps (one VSAT is 25766.1973 fps, used 
in entry) . 

Ksfot ■ Constant, value 00424- 30446-, scale factor B7. Value 
°^15 corresponds to 21622. 4965 x lo ^ x , to convert between 

BO revolutions and XXXX.X nmi (see K ). 

sf in, c 

15 

Ksfot ■ Oonstant, value 00631- 23146-, scale factor BO. Value 

16 corresponds to 25 x 10“3^ to convert between BO "G-units" 

(25 g's, as used in entry computations) and XXX. XX g's. 

K f t • Constant, value 00260- 06213-, scale factor B7. Value 

17 corresponds to 3441. 3272 x 2^ x 10”^ x 2“7, to convert 
between B2 radians and XXXX.X nmi (using pad radius, see 

^sfin^y^ ' 

K - , : Constant, value 17.2010499 x , scale factor B7. Value 

18 corresponds to 2-^° x (1/0.3048) x 10 ^ x 2 ' , to convert 
between 819 meters and XXXXX. feet (with a left shift of 7 places 
due to scaling of constant). 
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K „ , : Constant, value 0.032808399> scale factor BO. Value 

s corresponds to 2 ^ x 10^ x (I/O. 3048 ) x 10"^, to convert 

between BO meters/centi-second and XXXX.X fps: first term is 
for original scaling, second converts to seconds, third 
converts to feet, and fourth is display scale. 

K , : Constant, program notation "WHOLECON", value 00006^ 03240^, 

w econ factor B28. Value corresponds to 10^ x 2 ~^° (to 

"compensate" for the scaling done in "NUM"). 


MIXBR: Single precision cell, scale factor BI 4 , set in "LODNNTAB" to 
1 for a "normal" noun and to 2 for a "mixed" noun. 


NNADTEM: Temporary storage cell, single precision, loaded in "LODNNTAB" 
with the value of corresponding to NOUNEEG contents. See 

information below. ^ 


NNTYPTEM: Temporary storage cell, single precision, loaded in "LODNNTAB" 
with the value of corresponding to NOUMREG contents. See 

information below. ^ 

NOUNADD, NOUNREG: See Data Input/Output. 

OVFINP : See Data Input /Out put . 

RUTMXTEM: Temporary storage cell, single precision, loaded in "LODNNTAB" 

with value of for "mixed nouns" only. See information below. 

SFTEMPl: Temporary storage cell used to contain the appropriate value 
^sfin ^sfot ^ angle bias information (if any) in 

"DEGOUTSF" and "OPDEGOUT" . 


VERBSAVE: See Data Input /Out put . 

YREG, YREGLP: See Data Input/Output (YREGLP described 
ZREG, ZREGLP: See Data Input /Out put (ZREGLP described 


for LPREG). 
for LPREG). 




) 
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Noun Table Interpretation 


"Normal" Nouns 
MIXER = 1 


K , bits 15-11 contain the "component code number", interpreted as 
follows: 

Bit 15 is 1 if no loading of information by use of the 
noun with verbs 24 or 25 is allowed. 

Bit 14 is 1 if only decimal input /out put by use of the noun 
is allowed (i.e. no octal verbs may be used). 

Bit 13 is not assigned. 

Bits 12-11 give information on the number of components: 

OO2 for one component 
OI2 for two components 
10^ for three components 


K 4. 
nty 


bits 10-6 contain the "scale factor routine code number", used 
in "DECDSP3" and "PUTDCSF2" to transfer to the proper scaling 
routine . 


K 


nty 


bits 5-1 contain the "scale factor constant code number", used in 
"GTSFOUT" and "GTSFIN" to select the proper scaling constant. 


Kntb gives the machine address information with the following 
interpretations: 

+0 if noun not assigned . 

-0 if previous address to be incremented by +1. 

-1 if a channel is to be loaded or read (channel nxmiber is 
supplied as another input). 

•^-1 (usually 40000g) if an octal erasable memory address is 
to be supplied as another input. 

^+0 if the octal erasable memory address is given (for the 
first component). 
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"Mixed” Nouns 
MIXBR = 2 


bits 5-1} 10-6, and 15-11 contain the "scale factor constant 
code number", used in "GTSFOUT" and "GTSFIN", for component 
#1, #2, and #3 respectively. 

Kntb bits 15-11 contain the "component code number", with the same 
bit assignments as for bits 15-11 of ^nty for normal nouns . 

Kntb bits 10-1 contain the relative address (with respect to the start 

of the K-^^^ table, program notation "IDADDTAB") of the information 
in that table for the first component of the noun. Is 3(N0UNREG -40). 

Kfdtb gives the octal erasable memory address for the individual 
component (if the noun is three components, three consecutive 
cells are used). 

^rtmtb bits 5-1, 10-6, and 15-11 contain the "scale factor routine 
code number", used in "DECDSP3" and "PUTDCSF2", for component 
#1, #2, and #3 respectively. 


Notes for Noun Table Information 


1. A decimal display of "hr,mn,sc" appears as: OOXXX. hr 

OOOXX. mn 
OXX.XX sc 

2. A decimal single -register display of "mn, ,sc" appears with minutes 
in the first two digits of the register and seconds in the last two 
digits. The middle (third) digit is blank. Maximm magnitude is 59 59. 

3- Vector-type quantities are displayed with the first (e.g. X) 

component in Rl, the second component in R2, and the third in R3. 

4. Single component nouns appear in Rl only. 

5 . If an output quantity is larger than the capacity of the display 
register scaling, it generally will be displayed modulo that 
capacity: this assumes, of course, that the basic cell itself 

as stored in memory has not overflowed. If velocity increment of 
12000 fps experienced on an XXXX.X fps scale for display, it would 
be expected to show 2000(.)0. This arises from the fact that the 
K „ , constants convert the information into the range 0 - 0.99999, 
wKh subsequent display output generated by multiplying by 10 and 
using the integral part of the result (in "DSPDCWDl"). Multiplication 
by the ^ constant takes place before any scaling shifts. 
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Noun Table Information 




No Dec. 

Num- 

Rou- 

Con- 

Decimal 


Noun Cell 

Load Only 

ber 

tine 

stant 

Display 

Quantity 

00 

+0 


0 

0 

0 

— 

Not assigned. 

01 

40000g 


3 

1 

0 

.xxxxx 

Address supplied. 

02 

40000g 


3 

3 

0 

xxxxx. 

Address supplied. 

03 

40000g 


3 

2 

2 

XXX. xx° 

Address supplied. 

04 

+0 


0 

0 

0 

— 

Not assigned. 

05 

DSPTEMl, 

dp 


1 

10 

4 

XXX. xx° 

Angle error. 

06 

OPTIONl 

0PTI0N2 


2 

0 

0 

Octal 

Option codes. 

07 

XREG 


3 

0 

0 

Octal 

Address of word. 


YREG 





Octal 

Bits to be changed. 


ZREG 





Octal 

If 4=0, reset; if 
>0, set bits: see 








"ABCLOAD" (use only 
with V25). 

08 

ALMCADR 

ALMCADR+1 

ERCOUNT 


3 

0 

0 

Octal 

Alarm data. 

09 

FAILREG 


3 

0 

0 

Octal 

Alarm codes. 

10 

-1 


1 

0 

0 

Octal 

Channel supplied. 

11 

T . 

CSl 

X 

3 

8 

0 

hr,mn,sc 

CSI ignition time . 

12 

OPTIONX 

OPTIONX+1 


2 

0 

0 

Octal 

Option codes. 

13 

T 

cdh 

X 

3 

8 

0 

hr, ran, sc 

CDH ignition time . 

14 

VCdO 


1 

10 

9 

XXXXX. fps 

P15 desired velocity. 

15 

-0 


1 

0 

0 

Octal 

Increment address. 

16 

DSPTEMX 

X 

3 

8 

0 

hr,nin,sc 

Time of event. 

17 

CPHIX 


3 

2 

2 

XXX. XX° 

V63 FDAI base angles 
(V60E loads with N20) 

18 

THETAD 


3 

2 

2 

XXX. XX° 

Ball angles for 


attitude maneuver. 
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Rev. 0 




No 

Dec. 

Num- 

Rou- 

Noun 

Cell Load 

Only ber 

tine 

19 

+0 


0 

0 

20 

CDU 


3 

2 

21 

FIFA 


3 

3 

22 

THETAD 


3 

2 

23 

+0 


0 

0 

2k 

DSFTEM2+1, 

dp 

X 

3 

8 

25 

DSFTEMl 


3 

3 

26 

N26dPRI 

N26d2CAD 

N26d2CA£H-l 


3 

0 

27 

SMODE 


1 

3 

28 

+0 


0 

0 

29 

DSFTEMl 

X 

1 

2 

30 

DSFTEMl 


3 

3 

31 

AGEOFW 

X 

3 

8 

32 

mTFER 

X 

3 

8 

33 

T. 

ig 

X 

3 

8 

34 

DSFTEMl, 

dp 

X 

3 

8 

35 

togo 

X 

3 

8 

36 

T 

now 

X 

3 

8 

37 

Tx • 
tpi 

X 

3 

8 

38 

T 4. 

et 

X 

3 

8 

39 

T3TOT4 

X 

3 

8 

40 

X 

X 

3 



Tx 

togo 



9 


VGDISF 



7 


DVTOTAL 



7 
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Decimal 

Display 

Quantity 

— 

Not assigned. 

XXX. xx° 

Present ICDU angles. 

XXXXX. cnt 

Accelerometer cells. 

XXX .XX° 

Desired ICDU angles. 

— 

Not assigned. 

hr,mn,sc 

Delta time for clock. 

XXXXX. 

Checklist information 

Octal 

Priority/Delay and 
2CADR address for 

V30 and V31. 

XXXXX. 

Computer Self- 
Test switch. 

— 

Not assigned. 

XXX .xx° 

X launch azimuth . 
-sm 

XXXXX. 

Target codes. 

hr,mn,sc 

Time of r/v W matrix. 

hr,iiin,sc 

Time from pericenter. 

hr,mn,sc 

Time of "ignition". 

hr,mn,sc 

Time of event. 

hr,mn,sc 

Time from event. 

hr,iiin,sc 

AGC clock. 

hr,mn,sc 

TPI ignition time . 

hr,n)n,sc 

State vector time . 

hr,mn,sc 

Transfer time . 

mn, jSC 

Time from event. 

XXXX.X fps 

l—gl "vsilue. 

XXXX.X fps 

Velocity accumulated. 


Rev. 0 


Con- 

stat 

0 

2 

0 

2 

0 

0 

0 

0 

0 

0 

2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

10 

10 

■22 


Noun Cell 

No Dec. 
Load Only 

Num- 

ber 

Rou- 

tine 

Con- 

stant 

Decimal 

Display 

Qiiantity 

41 




2 






DSPTMl 

sp 



2 

2 

XXX. XX° 

Target azimuth. 


DSPTEMl+1 

sp 



3 

11 

XX.XXX° 

Target elevation. 

42 

HAPO 


X 

3 

7 

8 

XXXX.X rani 

Apo. altitude. 


HPER 




7 

8 

XXXX.X rani 

Per. altitiJde. 


VGDISP 




7 

10 

XXXX.X fps 

Required velocity 
change . 

43 

LAT 


X 

3 

10 

4 

XXX. XX° 

Latitiide . 


LONG 




10 

4 

XXX .XX° 

Longitude . 


ALT 




7 

8 

XXXX.X rani 

Altitude . 

44 

HAPOX 

X 

X 

3 

7 

8 

XXXX.X rani 

Apo. altitude. 


HPERX 




7 

8 

XXXX.X rani 

Per. altitude. 


TFF 




9 

0 

nua, ,sc 

Time from interface 
altitude . 

45 

vhfcnt/ 

TRKMKCNT 

X 

X 

3 

12 

0 

VH, ,TR 

VHF marks (D1 and D2) . 
Optics marks (D4 & D5). 


Tj. 

togo 




9 

0 

mn, ,sc 

Time from event. 


pMGA 




10 

4 

XXX. XX° 

Predicted middle gimbal 
angle (if +) . 

46 

DAPDATRl 



2 

0 

0 

Octal 

DAP code word #1. 


DAPDATR2 




0 

0 

Octal 

DAP code word #2. 
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Noun 

No Dec. 

L Cell Load Only 

Num- 

ber 

Rou- 

tine 

Con- 

stant 

Decimal 

Display 

Quantity 

47 

CSMASS 

X 

2 

11 

6 

XXXXX. lbs 

CSM mass. 


LEMMSS 



11 

6 

XXXXX. lbs 

LM mass. 

48 

PACTOFF 

X 

2 

3 

12 

XXX. XX° 

Pitch SPS trim. 


YACTOFF 



3 

12 

XXX .XX® 

Yaw SPS trim. 

49 

N49DISP 

X 

3 

4 

7 

XXX. XX nmi 

Position change . 


N49DISP+2 



7 

10 

XXXX.X fps 

Velocity change. 


N49DISFM-4 



3 

0 

XXXXX. 

Source code (l for 
optics, 2 for VHF), 

50 

X 

X 

3 






RSRiiRREC 



7 

15 

XXXX.X nmi 

Splash error. 


HPERX 



7 

8 

XXXX.X nmi 

Per. Altitude. 


TFF 



9 

0 

mn, ,sc 

Time from interface 
altitude . 

51 

RHOSB 

X 

2 

10 

4 

XXX. XX° 

S-band antenna pitch 


GAMMASB 



10 

4 

XXX .XX° 

S-band antenna yaw. 

52 

ACTCENT 


1 

10 

4 

XXX. XX° 

Active vehicle 
central angle . 

53 

RANGE 

X 

3 

4 

7 

XXX.XX nmi 

Range from target. 


RRATE 



7 

10 

XXXX.X fps 

Range rate . 


RTHETA 



10 

4 

XXX.XX® 

Angle Phi (R34) . 


MDF-24 


Rev 
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No Dec. 

Num- 

Rou- 

Con- 

Decimal 


Noun Cell 

Load Only 

ber 

tine 

stant 

Display 

Quantity 

54 

RANGE 

X 

3 

4 

7 

XXX.XX rani 

Range from target. 


RRATE 



7 

10 

XXXX.X fps 

Range rate. 


RTHETA 



10 

4 

XXX .XX° 

Angle Theta (R31/P79) 

55 

NNl 

X 

3 

3 

0 

XXXXX. 

Per. code. 


ELEV 



10 

4 

XXX.XX® 

Elevation angle . 


CENTANG 



10 

4 

XXX.XX® 

Passive vehicle 
central angle. 

56 

RTEGAM2D 

X 

2 

10 

4 

XXX.XX® 

P37 desired flight 
path angle. 


RTEDVD 



10 

9 

XXXXX. fps 

P37 desired velocity 
change . 

57 

+0 


0 

7 

0 


Not assigned. 

58 

POSTTPI 

X 

3 

7 

8 

XXXX.X rani 

Per. altitude after 
burn. 


DELVTPI 



7 

10 

XXXX.X fps 

Delta-V for bum. 


DELVTPF 



7 

10 

XXXX.X fps 

Delta-V for final 
phase . 

59 

DVLOS 

X 

3 

7 

10 

XXXX.X fps 

Delta-V in line-of- 








sight coordinates . 

60 

GMAX 

X 

3 

3 

0 

XXX.XX g 

Max. drag predicted. 


VPRED 



10 

9 

XXXXX. fps 

Predicted velocity 

400 kft above Fischer 


GAMMAEI 



10 

4 

XXX.XX® 

Predicted flight 
path angle with VPRED 
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No Dec. 

Niom- 

Rou- 

Con- 

Decimal 


Noun 

Cell 

Load Only 

ber 

tine 

stant 

Display 

Quantity 

61 

LATSPL 

X 

3 

10 

4 

XXX .XX° 

Target latitijde. 


LNGSPL 



10 

4 

XXX .XX° 

Target longitiide. 


HEADSUP 



3 

0 

XXXXX. 

Heads up/down. 

62 

VMGI 

X 

3 

10 

9 

XXXXX. fps 

Inertial velocity. 


HDOT 



10 

9 

XXXXX. fps 

Altitude rate. 


ALTI 



7 

8 

XXXX.X nmi 

Altitude above base 
radius magnitude. 

63 

RTGO 

X X 

3 

7 

15 

XXXX.X nmi 

Range from EMS 
altitude to splash. 


VIO 



10 

9 

XXXXX. fps 

Predicted velocity 
at EMS altitude. 


TTE 



9 

0 

mn, ,sc 

Time from EMS 
altitude . 

64 

D 

X 

3 

5 

16 

XXX.XX g 

Drag acceleration. 


VMAGI 



10 

9 

XXXXX. fps 

Inertial velocity. 


RTGON67 



7 

15 

XXXX.X nmi 

Range to target. 

65 

T 4. 

st 

X 

3 

8 

0 

hr,mn,sc 

Sampled AGC clock. 

66 

ROLLC 

X 

3 

10 

4 

XXX .XX° 

Commanded roll angle 


LATANG 



7 

17 

XXXX.X nmi 

Cross-range error. 


DNRNGERR 



7 

15 

XXXX.X nmi 

Down-range error. 


NNDF-26 


No Dec. Num- Rou- Con- Decimal 

Noun Cell Load Only ber tine stant Display Quantity 

67 X 3 



RTGON67 


7 

15 

XXXX.X rani 

Range to target. 


LAT 


10 

4 

XXX .XX° 

Latitude . 


LONG 


10 

4 

XXX. XX° 

Longitiade . 

68 


X 3 






ROLLC 


10 

4 

XXX .XX° 

Commanded roll angle. 


VMAGI 


10 

9 

XXXXX. fps 

Inertial velocity. 


RDOT 


10 

14 

XXXXX. fps 

Altitude rate. 

69 


X 3 






ROLLC 


10 

4 

XXX .XX° 

Commanded roll angle. 


Q7 


5 

16 

XXX.XX g 

Drag at skip-out. 


VL 


10 

14 

XXXXX. fps 

Skip-out velocity. 

70 


3 






STARCODE 


0 

0 

Octal 

Body code . 


LANDMARK 


0 

0 

Octal 

Landmark data. 


HORIZON 


0 

0 

Octal 

Horizon data. 

71 


3 






STARCODE 


0 

0 

Octal 

Body code. 


LANDMARK 


0 

0 

Octal 

Landmark data. 


HORIZON 


0 

0 

Octal 

Horizon data. 

72 

+0 

0 

0 

0 

— 

Not assigned. 

73 


3 






P21ALT 


7 

8 

XXXXXb. rani 

Altitude (P21 output m/lOO) 


P21VEL 


10 

9 

XXXXX. fps 

Velocity. 


P21GAM 


10 

4 

XXX. XX° 

Flight path angle. 

74 


3 






ROLLC 


10 

4 

XXX. XX° 

Commanded roll angle . 


VMAGI 


10 

9 

XXXXX. fps 

Inertial velocity. 


D 


5 

16 

XXX.XX g 

Drag acceleration. 
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Nom 

Cell 

No Dec. 
Load Only 

Num- 

ber 

Rou- 

tine 

Con- 

stant 

Decimal 

Display 

Qiiantity 

75 

DIFFALT 

X 

X 

3 

7 

8 

XXXX.X nmi 

CDH Delta Altitude. 


T1T0T2 




9 

0 

mn, ,sc 

CDH-CSI/TPI-CDH. 


T2T0T3 




9 

0 

mn, ,sc 

TPI-CDH/TPI-NOMTPI . 

76-77 +0 



0 

0 

0 

— 

Not assigned. 

78 

UTYAW 


X 

3 

10 

4 

XXX .xx° 

P20 "yaw" angle. 


TJTPIT 




10 

4 

XXX .xx° 

P20 "pitch" angle. 


AZIMAEGL 




10 

4 

XXX .xx° 

P20 "azimuth" angle. 

79 

RATEPTC 


X 

2 

3 

11 

X.XXXX%ec 

Rate ("R67START" divides 
by 10), P20 opt. #2. 


DBFI'C 




2 

2 

XXX .XX° 

Deadband for P20. 

80 

Tx 

togo 

X 

X 

3 

9 

0 

mn, ,sc 

Time from event. 


VGDISP 




10 

9 

XXXXX. fps 

1 V 1 value . 

'“g ' 


DVTOTAL 




10 

9 

XXXXX. fps 

Velocity accumulated. 

81 

DELVLVC 


X 

3 

7 

10 

XXXX.X fps 

Delta-V in local vert, 
coordinates . 

82 

DELVOV 


X 

3 

7 

10 

XXXX.X fps 

Delta-V in local vert, 
coordinates . 

83 

DELVIMU 


X 

3 

7 

10 

XXXX.X fps 

Delta-V in control 
coordinates . 

84 

DELVOV 


X 

3 

7 

10 

XXXX.X fps 

Delta-V of other 
vehicle . 

85 

— ffbodv 


X 

3 

7 

10 

XXXX.X fps 

V in control 


coordinates . 
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No 

Dec . 

Num- 

Rou- 

Con- 

Decimal 

Noun Cell Load Onlv 

ber 

tine 

stant 

Disolav 

86 


X 

3 





DELVLVC 



10 

9 

XXXXX. fps 

87 



2 





MRKBUFH-3^p 



2 

2 

XXX .XX° 


MRKBUFl+5gp 



6 

2 

XX.XXX° 

88 


X 

3 





STARSAVl 



13 

0 

.XXXXX 

89 


X 

3 





LAT 



7 

3 

XX.XXX° 


LANDLONG 



7 

3 

XX.XXX° 


LANDALT 



4 

7 

XXX .XX nmi 

90 


X 

3 





YCSM 



4 

7 

XXX .XX nmi 


YDOTC 



7 

10 

XXXX.X fps 


YDOTL 



7 

10 

XXXX.X fps 

91 



2 





CDUS 



2 

2 

XXX .XX° 


CDUT 



6 

2 

XX.XXX° 

92 



2 





SAC 



2 

2 

XXX .xx° 


PAG 



6 

2 

xx.xxx'^ 

93 



3 





OGC 



7 

3 

xx.xxx° 

94 



2 





MRKBUFl+3^p 



2 

2 

XXX .xx° 


MRKBUFl+5^p 



6 

2 

xx.xxx° 
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Qixantlty 

Delta-V in local vert, 
coordinates. 

Optics shaft mark. 
Optics trunnion mark. 

"Planet" vector. 

Lat. of landmark. 

5 Long, of landmark. 

Alt. of landmark. 

Active out-of-plane pos . 
Active out-of-plane vel. 
Pass, out-of-plane vel. 

Optics shaft angle. 
Optics trunnion angle. 

Desired optics shaft. 
Desired optics trunnion. 

Gyro torquing angles . 

Alternate LOS shaft. 
Alternate LOS trunnion. 


No Dec. 
Noim Cell Load Only 

Num- 

ber 

Rou- 

tine 

Con- Decimal 
stant Display 

Quantity 

95 

togo 


3 

9 

0 

mn, ,sc 

Time from event. 


VGTLI 



10 

9 

XXXXX. fps 

l^gl • 


VMGI 



10 

9 

XXXXX. fps 

Inertial velocity. 

96 

RANGE 

X 

3 

k 

7 

XXX .XX nmi 

CSM out-of -plane pos 


RRATE 



7 

10 

XXXX.X fps 

CSM out-of -plane vel 


RRATE2 



7 

10 

XXXX.X fps 

LM out-of-plane vel. 

97 

DSPTEMl 

-sp 


3 

3 

0 

XXXXX. 

System test Inputs . 

9S 



3 






DSPTEM2 

sp 



3 

0 

XXXXX. 

System test results. 


DSPTEM2+1 

sp 



1 

0 

.XXXXX 

System test resiilts. 


DSPTEM2+2 

sp 



3 

0 

XXXXX. 

System test results. 

99 

WWPOS 

X 

3 

7 

18 

XXXXX. ft 

Position W-matrix 
e rror/ initialization . 


WWEL 



5 

19 

XXXX.X fps 

Velocity W-matrix 
e rror/ initialization . 


WWOPT 



3 

0 

XXXXX. 

Option code. 


Note that N95 is not "No Load/Decimal Only". 
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Quantities in Noun Tables 


ACTCENT; See Rendezvous Computations. N52 

AGEOFW: See Measurement Incorporation. N3I 

ALMCADR; See General Program Control. NOS 

ALT: See Coordinate Transformations. NA3 

ALTI: See Boost Computations. N62 

AZIMANGL: See Orbital and Rendezvous Navigation. N78 

CDU; Major Variable. N20 

CDUS, CDUT: See Optics Computations. N9I 

CENTANG: See Burn Control. N55 

CPHIX : See Digital Autopilot RCS Routines . NI7 

CSMMASS: See Digital Autopilot Interface Routines. N47 

D: See Entry Computations. N64, N7/(, 

DAPDATRl, DAPDATR2: See Digital Autopilot Interface Routines. 

DBPTC: See Orbital and Rendezvous Navigation. N79 

DELVIMU: See Display Computations. N83 

DELVLVC: See Burn Control. N8I, N86 

DELVOV: See Burn Control. N82, N84 

DELVTPF, DELVTPI: See Burn Control. N58 

DIFFALT : See Rendezvous Computations . N75 

DNRNGERR: See Entry Computations. N66 

DSPTEMl: Major Variable. NO5, N25, N29, N30, N34, N4I, N97 

D3FTEM2: Major Variable. N24, N98 

DSPTEMX: See Display Computations. NI6 

DVLOS: See Burn Control. N59 

DVTOTAL: See General Program Control. N40, N80 

ELEV: See Rendezvous Computations. N55 

ERCOUNT: See Testing Routines. NOS 
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FAILRBG: See General Program Control. N09 

GAMMAEI : See Display Computations . N60 

GAMASB; See Display Computations. N51 

GMAX: See Display Computations. N60 

HAPO: See Burn Control. N42 

HAPOX: See Display Computations. N44 

HDOT : See Boost Computations . N62 

HEADSUP: See Entry Preparation. N61 

HORIZON: See Measurement Incorporation. N 70 , N71 

HPER: See Burn Control. N42 

HPERX: See Display Computations. N44, N 50 

LANDALT: See Orbital and Rendezvous Navigation. N89 

LANDLONG: See Orbital and Rendezvous Navigation. N 89 

LANDMARK: See Orbital and Rendezvous Navigation. N 70 , N 7 I 

LAT: See Coordinate Transformations (tag also LANDLAT). N43, N 67 , N 89 

LATANG: See Entry Computations (tag also XRNGERR) . N66 

LATSPL: See Display Computations. N 6 I 

LEMMASS: See Digital Autopilot Interface Routines. N47 

LNGSPL: See Display Computations. N 6 I 

LONG: See Coordinate Transformations. N43j N 67 

MRKBUFl+3 : See Optics Computations. N 87 , N94 

MRKBUFl+5: See Optics Computations. N87j N94 

mTPER: See Display Computations. N32 

N 26 d 2 CAD, N26d2CAD+l, N26dPRI: See Data Input/Output. N26 

N 49 DISP, N 49 DISFH- 2 , N49DISP+4: See Measurement Incorporation. N49 

NNl: See Rendezvous Computations. N55 

OGC: See Coordinate Transformations. N93 

OPTIONl, 0PTI0N2: See Display Interface Routines. NO 6 
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OPTIONX: See Display Computations. N12 

P21ALT, P21GAM, P21VEL: See Orbital and Rendezvous Navigation. N73 

PAG: See Coordinate Transformations. N92 

PACTOFF : See Digital Autopilot TVC Routines . N 4 S 

PIPA: See IMU Computations. N21 

pMlA: See Display Computations. N45 

POSTTPI: See Burn Control. N 58 

Q7: See Entry Computations. N 69 

RANGE: See Display Computations. N53> N54 j N 96 

RATEPTC: See Attitude Maneuvers. N79 

RDOT: See Entry Computations. N6B 

RHOSB: See Display Computations. N 5 I 

ROLLC: See Entry Computations. N66, N68, N69, N74 

RRATE: See Display Computations. N53} N54j N 96 

RRATE2: See Display Computations. N 96 

RSPmRREC: See Display Computations. N 50 

RTEDVD: See Return to Earth Computations. N 56 

RTEGAM2D: See Return to Earth Computations. N 56 

RTGO: See Display Computations. N 63 

RTGON 67 : See Entry Computations. N 64 , N 67 

RTHETA: See Display Computations. N53, N54 

SAC: See Coordinate Transformations. N92 

SMODE: See Testing Routines. N27 

STARCODE: See Inflight Alignment. N 70 , N71 

STARSAV2.: See Inflight Alignment. N88 

Tcdh’ 2®® Rendezvous Computations. NI 3 

T . : See Rendezvous Computations . Nil 
csi 

T^^: See Orbital Integration. N 38 
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Major Variable. N33 
T : Major Variable. N 36 

See Data Input/Output. N 65 
T^ogo= See Burn Control. N35, N 40 , N45, N80, N95 
See Rendezvous Computations. N37 
T1T0T2, T2T0T3: See Rendezvous Computations. N75 
T 3 TOT 4 : See Return to Earth Computations. N39 
TFF: See Display Computations. N44, N 50 
THETAD: Major Variable. NIB, N22 
TRKMKCNT: See Measurement Incorporation. N45 
TTE: See Display Computations. N 63 

UTPIT, UTYAW: See Orbital and Rendezvous Navigation. N7B 

V , , : See Burn Control. N 85 

-gbody 

VCdO: See Boost Computations. NI 4 
VGDISP: See Burn Control. N 40 , N42, N80 
VGTLI: See Boost Computations. N95 
VHFCNT: See Measurement Incorporation. N45 
VIO: See Display Computations. N 63 
VL: See Entry Computations. N 69 

VMAGI: See Boost Computations/Entry Computations. N62, N 64 , N68, N74> N95 
VPRED: See Display Computations. N 60 

WWOPT, WWPOS, WWVEL: See Measurement Incorporation. N99 
XR.EG: See Data T.npnt/Oiitpiit . NO 7 
YACTOFF: See Digital Autopilot TVC Routines. N 48 
YCSM, YDOTC, YDOTL: See Burn Control. N90 

YRBG: See Data Input/Output. NO 7 
ZREG: See Data Input/Output . NO 7 
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Internal Noun Uses 


Listed below are the routines which cause the valiiss of. particular 
nouns to be displayed, together with the associated verb used for the 
initial display generation (which is sometimes written over with 
another verb) . 

Noun Using Routine (Verb) 

01 "OHWELLl" (21); ''0HWELL2" (21); "SOPTION" (0$) 

02 "UPVERIFI" (21) 

03 Manual initiation only (angle data, address-to-be-specified) 

05 "R54" (06) 

06 See Checklist and Option Ccxies 

07 Manual initiation only (with V25, to change flag/channel bits) 

08 Manual initiation only (Alarm data) 

09 See the "D" Error Codes (used with V05) 

10 Manual initiation only (channel-to-be -specified) 

11 "P31" (06); "P72" (06) 

12 See Checklist and Option Codes 

13 "P73" (06) 

14 "P15J0B" (06) 

15 Manual initiation only (increment machine address) 

16 "R36" (06); "V82G0FF1" (06) 

17 Manual initiation only (V63 FDAI base angles) 

18 "TOBALL" (06); "TOBALL" (06 replaced by 50); "V89RECL" (06) 

20 "GYCR3" (16) 

21 Manual initiation only (PIPA) 

22 "IMUATTCK" (25); "P5U" (06); "P52D" (06); "P62.1" (O6); 
"R62DISP" (06); "UPCONTRL" (06); "VBCOARK" (25) 

24 "ALINTIME" (25) 

25 See Checklist and Option Codes 
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26 

27 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


Using Routine (Verb) 

Manual initiation only (verb 30 and 31 parameters) 

Manual initiation only (computer self -test switch) 

"AZMTHCGl" (06) 

"GCOMPVER" (05, written over by VO6N4I) 

Manual initiation only (time of last r/v W matrix initialization) 
Manual initiation only (time from pericenter computed in R30) 

"P15J0B" (06); "P3O" (06); "P3I" (06); "P36A" (06); "P37" (06); 
"P37E" (06); "P76ER77" (06) 

"PASSOUT" (06); "P200PT" (06); "P21PR0G1" (06); "P52B" (06) 

Manual initiation only (h,m,s display of e.g. R1 of Ni+O) 

Manual initiation only (computer clock) 

"P31" (06); "P34/P74C" (06); "P72" (06); "P74" (06) 

Manual initiation only (state vector time, 

"RTEVN" (06) 

"CLOCKJOB" (06 replaced by 97 or 99); "POSTBURN" (16); 

"P40SXTY" (06); "TIG-0" (06); "TIGAVEG" (06); "V97E" (06); 

"V97P" (06); "V99P" (06) 

"GCOMPVER" (06, after N30 loads R3) 

"P3O" (06) 

"LONGPASS" (06, R1 and R3 blanked); "PASSOUT" (06); "P21PR0G2" (06) 
"V82CALL" (16); "V82G0FLP" (16) 

"PR0G22" (06, R1 and R2 blanked); "P3O" (16); "R23CSM1" (I6 
replaced by 53); "VNI645" (I6) 

"UONOUN46" (04) 

"DONOUN46" (06) 

"DONOUN46" (06) 

"P23.85" (06, R3 blanked); "RENDISP2" (06, priority display); 
"S22B0X12" (06, R3 blanked) 

Manual initiation only (optional R30 display, R1 computed POO/Pll) 


NNDF-36 


Rev. 0 


n 
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NP^ Using Routine (Verb') 

51 "SBANDANT" (06, R3 blanked) 

52 Manual initiation only (central angle of transfer computed in 
P34/P74 and P35/P75) 

53 "R3ICALL" (16) 

54 "R31CALL" (16) 

55 "P31" (06); "P34/P74C" (06); "P72" (06); "P74" (06) 

56 Manual initiation only (P37 targeting data) 

5S "P34/P74C" (06) 

59 Manual initiation only (line -of -sight velocity increment) 

60 "NEWRNVN" (06); "P37" (06, R1 blanked); "RTEVN" (06, R1 blanked) 

61 "P6I" (06); "P62.I" (06); "RTEVN" (06, R3 blanked) 

62 "VHHDOT" (06) 

63 "NEWRNVN" (16) 

64 "P63" (06) 

65 Manual initiation only (sampled computer clock) 

66 "PREFINAL" (06) 

67 "P67.I" (16) 

68 Manual initiation only (entry quantities) 

69 "P65.I" (16) 

70 "PR0G22A" (05, R1 and R3 blanked); "P23" (05); "R5IDSPA" (01, 

R2 and R3 blanked); "VIN7ODSP" (Ol) 

71 "DOV5N71" (05, R1 and R3 blanked); "P23.60" (05); "R53CI" (Ol) 

73 Manual Initiation only (quantities computed in P2l) 

74 "INITROLL" (06) 

75 "P32/P72C" (06); "P33/P73B" (06) 

78 "D0V6N78" (06); "V89CALL" (06, R3 blanked) 
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82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


Using Routine (Verb) 


"D0V6N78" (06) 

Manual initiation only (same as N40, but R2 and R3 different 
scaling) 

"N9O/N8I" (06); "P30" (06); "P32/P72C" (06); ''P33/P73B" (06); 
"P76ER77" (06); "RTEVN" (O6); "S34/35.5" (06) 

"P32/P72C" (06) 

''P47B0DY" (16) 

"P76ER77" (06) 

"P40SXTY" (06); "TIGAVEG" (I6); "TIGNOW" (I6) 

Manual initiation only (same as N81, but different scaling) 
"MARKDISP" (06, R1 and R3 blanked) 

"PLANET" (06); "P23N7071" (06); "V1N70DSP" (06) 

"P22SUBRB" (06); "P52B" (06); "S22I=N" (06) 

"N9O/N8I" (06); "P32/P72C" (06); "P33/P73B" (06) 

Manual initiation only (optics CDU angles) 

"R53CHK" (06); "VBCOARK" (24) 

"GCOMPVER" (06); "IMUFINEK" (25); "R55" (06) 

"R23CSM" (06); "R56" (06) 

"POSTTLI" (16); "PI5JOB" (06); "TIGAVEG" (06) 

"R36" (06) 

Manual initiation only (DSPTEMl cells for system test inputs) 
"SHOW" (06) 

"GOTOPOOH" (37 j which then blanks noun register); "V67CALL" (06) 
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Optics Computations 


O 


OPTTEST Entered from "PROCEEDE" every 0.24 seconds 
TS = CDUS (Tag here "OPTDRIVE") 

= M - \5dg 
If TS^ ^ 0: 

ZONE = 0 

If TS^> 0: 

If ZONE = 0: 

ZONE = TS 

If OPTIND^ -0: 

If OPTIND < -0: 

Set bit S(TVC Enable) of channel 12 = 0 
Resimie 

If SWSAMPLE K 0: (Zero optics mode) 

Resume 

If SWSAMPLE = 0: (Manual mode) 

If bit 8(TVC Enable) of channel 12 = 0: (Tag here "TVCBCK") 

Set bit 8(TVC Enable) of channel 12 = 1 
Resume 

If bit lO(ZROPTFIN) of OPTMODES = 0: (Tag here "RATEDRVl") 

Perform "ALARM" (pattern 0120 ^) 

O 

If bit 2 (Enable Optics CDU Error Counters) of channel 12 = 0: 

Set bit 2 (Enable Optics CDU Error Counters) of channel 12 = 1 
Resume 

COMMANDS = (DESOPTS - CDUS), rescaled to B1 revolutions. The ones 
complement difference of the twos complement numbers is formed, 
and a rounded shift employed in the rescaling from B-1 to 
B1 revolutions . 
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TS = DESOPTT - CDUT 


(treated as ones complement numbers) 


If |ts|< 2-3 rev (45°) : 


COMMANDT = (DESOPTT - CDUT), rescaled to B-1 revolutions. 
The ones complement difference of the twos complement 
numbers is formed, and a roimded shift employed in the 
rescaling from B-3 to B-1 revolutions. 

If |ts|> 2"3 rev (45°) : 

COMMANDT = +MAX sgn TS 

OPTIND = +0 

TS^ = 0 (ITEMPI tag) 

If jCDUSj - 0: (i.e. 2nd or quadrant) 

If ZONE -f 0: (should be) 

If sgn ZONE = sgn COMMANDS: (+0 is +, -0 is -) 

Ts^ = |desopts| 

If sgn ZONE ^ sgn COMMANDS: 

TS^ = +MAX 


TS2-^90dg^° = 


(i.e. DESOPTS 1st or 4th quad.) 
COMMANDS = - COMMANDS 
SKATE = 0 

If SWSAMPLE = 0: (Manual mode; Tag "CMDSETUP") 

CDUSCMD = SKATE - SOLD + (-0) 

CDUTCMD = TKATE - TOLD + (-0) 

TOLD = TKATE 
SOLD = SKATE 


(the -0 avoids loading (Tag 

"KATEDKV2") 

counter cell with +0) 


Set bits 12-11 (Gate outputs from CDUiCMD, i = T,S) of 
channel 14 = 1 

Kesume 

Set bit 8(TVC Enable) of channel 12 = 0 
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Perform the following for i = S,T: (Tag here "CMDSET") 

If COMMANDl = 0: 

CDUiCMD = -0 
If COMMAND! ^ 0: 

TS^ = TS^ + 1 (non -zero command required) 

TS = ICOMMANDil + K 

' mxpsl 

If TS > 0: 

CDUiCMD = - K sgn COMMAND! 
mxps 

If TS 0: 

CDUiCMD = COMMAND! 

If TS^ > 0: 

Set bits 12-11 (Gate outputs from CDUiCMD, i = T S) of 
channel 14 = 1 > v 

Resume 

OPTS Entered from "PROCEEDE" every O .48 seconds 

TS = bit 7 (Optics CDU Fail complement) of channel 30 
If TS ^ bit 7(0CDUFBIT) of OPTMODES: 

Perform "OCDUFTST" 

If OPTIND = -0: 


Resume (note that bit 7 of OPTMODES not updated) 

If OPTIND <0: (set -1 by e.g. "BJITSUBA") 

Set bit 2 (Enable Optics CDU Error Counters) of channel 12 = 0 
Set bit 7(0CDUFBIT) of OPTMODES = TS 


5-4(OPMDlBp, 0PMD2BIT) of OPTMODES = bits 5-4 (Computer Control 
of Optics complement and Zero Optics Mode complement) of channel 33 

If bits 5-4 of C 3 IFLWRD ^00^: 

Set bits 5-4 of OPTMODES = bits 5-4 of C 3 IFEWRD 


If bits 5-4 of OPTMODES = ll^: 

SWSAMPLE = 0 (Manual mode) 
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If bits 5-4 of OPTMODES ll^: 

If bit 5(OPMDIBIT) of OPTMODES = 0: 

SWSAMPLE = 15 (Computer Control) 

If bit 5(0PMD1BIT) of OPTMODES = 1: 

SWSAMPLE = -1 

If DESOPMDD > 0: (previous cycle Computer Control; Tag "PROCESSW") 

If SWSAMPLE > 0: (still Computer Control; Tag "CSCDES") 

DESOPMOD = SWSAMPLE 
Resume 

If SWSAMPLE < 0: (from Computer Control to Zero) 

Proceed to "CSCTOZOP" 

Proceed to "CSCTOMAN" (from Computer Control to Manual) 

If DESOPMOD = 0: (previous cycle Manual mode) 

If SWSAMPLE > 0: (from Manual to Computer Control; Tag "MANUDES") 
WTOPTION = 0 
ZOPTCNT = 0 
Proceed to "CSCTOMAN" 

If SWSAMPLE = 0: (still Manual) 

WTOPTION = WTOPTION - 1, limited > +0 

DESOPMOD = SWSAMPLE 

Resume 

If WTOPTION = 0: (from Manual to Zero) 

Proceed to "CSCTOZOP" 

Proceed to second line of "CSCTOZOP" 
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If DESOPMOD <0: (as it vd.ll) (previous cycle Zero optics) 

If SWSAMPLE > 0: (from Zero to Computer Control; Tag "ZOPTDES") 

If bit 3(Z0PTCS) of OPTMODES = 0: (Tag "ZTOCSC") 

Proceed to "CSCT0M4N" 

Perform "ALARM" (pattern 0116^) 

O 

Set bits 3-2 (ZOPTCS, OCDUINHT) of OPTMODES = 0 

Set bit l(Zero Optics CDU) of channel 12 = 0 

WTOPTION = 0 

ZOPTCNT = 0 

Proceed to "CSCTOMAN" 

If SWSAMPLE = 0: (from Zero to Manual) 

If bit 3(Z0PTCS) of OPTMODES = 0: (Tag "ZTOMAN") 

Proceed to "CSCTOMAN" 

Perform "ALARM" (pattern 01l6g) 

WTOPTION = 11 

Set bits 3-2 (ZOPTCS, OCDUINHT) of OPTMODES = 0 
Set bit l(Zero Optics CDU) of channel 12 = 0 
Proceed to "CSCTOMAN" 

If bit 3 (ZOPTCS) of OPTMODES = 0: (still Zero) 

DESOPMOD = SWSAMPLE 
Resume 

If ZOPTCNT > 0: 

ZOPTCNT = ZOPTCNT - 1 
DESOPMOD = SWSAMPLE 
Resimie 

Set bit l(Zero Optics CDU) of channel 12 = 1 (Tag "SETZOEND") 
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(If DESOPMOD <0): 

Call "ENDZOPT" in 0.20 seconds 

DESOPMOD = SWSAMPLE 

Resiime 

ENDZOPT 

CDUS = 0 

ZONE = 0 

CDUT = - , 

20degs 

Set bit l(Zero Optics CDU) of channel 12 = 0 
Delay 0.20 seconds 

Set bit lO(ZROPTFIN) of OPTMODES = 1 

Set bits 3-2 (ZOPTCS, OCDUINHT) of OPTMODES = 0 

Perform "OCDUFTST" 

End of task 
OCDUFTST 

If bit 7 (Optics CDU Fail complement) of channel 30 = 0: 

If bit 2 (OCDUINHT) of OPTMODES = 1: 

Return 

If bit 8 of DSPTAB+11 = 0: 

Set bit 8 (Tracker) of DSPTABPll = 1, and flag for 
output at next opportunity 

Return 

If bit l(LMPTSTBT) of IMODES33 = 1: 

Return 

If bit 8 of DSPTAB+11 = 1: 

Set bit 8 (Tracker) of DSPTAB+11 =0, and flag for output 
at next opportunity 

Return 


OPTC-6 


Rev. 0 


CSCTOZOP 


ZOPTCNT = 32 
WTOPTION = 0 

Set bits 3-2 (ZOPTCS, OCDUINHT) of OPTMODES = 1 
Set bit 8(TVC Enable) of channel 12 = 0 

Set bit 2(Enable Optics CDU Error Counters) of channel 12 = 0 
DESOPMOD = SWSAMPLE 
Resume 
CSCTOMAN 

If OPTIND > +0: 

TOLD = 0 
SOLD = 0 

Set bit 2(Enable Optics CDU Error Counters) of channel 12 = 0 
Call "ECENAB" in 0.06 seconds 
DESOPMOD = SWSAMPLE 
Resume 
ECENAB 

If SWSAMPLE = 0: (Manual mode) 

Set bit 8(TVC Enable) of channel 12 = 1 
Set bit 2(Enable Optics CDU Error Counters) of channel 12 = 1 
End of task 
SXTMARK 

Perform "TESTMARK" 

If MODRBG = 22 or 24: 

NUM8NN = 0 
P22DEX = 0 
MARKINDX = 5 
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If MODRBG ^ 22: 

If MODREG ^ 24: 

MARKINDX = 1 

OPTCADR = Return address (to routine calling "SXTMARK") 

Proceed to "MKVB51" 

TESTMARK Entered from "R 56 ", "R57C", and "SXTMARK" 

If bits 3-2 of EXTVBACT OO 2 : 

Proceed to "BAILOUT" (pattern 31211g) 

Set bit 2 of EXTVBACT = 1 
Return 

MKRELEAS (tag also "MKRLEES") 

Inhibit interrupts 
OPTIND = -1 
MARKINDX = 0 

Set bit 4 (MARKFLG-) of FLAGWRDl = 0 
Release interrupts 
Return 
MKVB51 

Perform "KLEENEX" 

Proceed to "MKVBDSP" 

MKVBDSP 

TS = 5100 

vn 

Proceed to "G0MARK4": if terminate, proceed to "TERMSXT" 

if proceed, proceed to "ENTANSWR" 
otherwise, proceed to "MKVB5X" 

ENTANSWR 

Establish "ENDEXT" (priority 24g) 

Change priority of present job to 13g (allows "ENDEXT" to be executed) 
Proceed to address specified by OPTCADR 
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MKVB 5 X 

If MARKINDX >0: 

Proceed to "MKVB51" 

Proceed to "MKVB 5 O" 

MKVB50 

DSPTEMl = 000l6g 
TS - 5025 

vn 

Proceed to "G0MAEK4": if terminate, proceed to "TERMSXT" 

if proceed, proceed to "ENTANSWR" 
otherwise, proceed to "MKVB5X" 

TERMSXT 

Perform "CLEARMRK" 

Perform "MKRELEAS" 

If MODREG = 03: 

Proceed to "GCOMP 5 " 

Proceed to "GOTOPOOH" 

MARKRUPT Entered after receipt of program interrupt # 6 , navigation 
panel DSKY key code or optics mark/mark reject 

MKCDUT = CDUT 

MKCDUS = CDUS 

MKCDUY = CDU 

y 

MKCDUZ = CDU 

z 

MKCDUX = CDU 

X 

MKT2T1 = T 

now 

T^^ = MKT2T1 

If bit 6(0ptics Mark) of channel I 6 = 1 : 

^cduchkwd^ limited centi-second (tag here "MARKIT") 

Call "MARKDIF" in TS centi— seconds 
Resume 
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If bit 7 (Optics Mark Reject) of channel l6 = 1: 

Proceed to "MKREJECT" 

TS^ = bits 5-1 (DSKY input) of channel l6 
If TS^ i 0: 

Proceed to "KEICOM" 

Perform "ALARM" (pattern 0113g) 

Resume 

MARKDIF 

If bit 14(P24FLAG) of FLAGWRD9 = 0: 

^cduchkwd^ 

If any [MKCDUi - CDU^j + \3bt (i = X,Y,Z) 

Perform "ALARM" (pattern 0121g) 

End of task 

If bit 14(R21MARK) of FLAGWRD2 = 1: (Tag here is "MRKCONT") 

Proceed to "PUTMARK" 

If bit 12(P23CALIB) of FLAGWRD5 = 1: 

MARKDOWN+i = MKj (i = 0-6; j = T2Tl^p, CDUY, CDUS, CDUZ, CDUT, CDUX) 
Establish "MARKDISP" (priority 05g) 

Proceed to "PUTMARK" 

If MARKINDX = 0: 

Perform "ALARM" (pattern 0114g) 

End of task 

MARKINDX = MARKINDX - 1 (Tag here is "MARK2") 

Set bit 4(MARKFLG) of FLAGWRDl = 1 
If MODREG =24: 

MARKINDX = MARKINDX + 1 (restores original value) 

Set bit 11(P22MKFLG) of FLAGWRD3 = 1 
Set bit 3(P24MFLG) of FLAGWRD2 = 1 
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If MODREG 24: 

If MODREG 22: 

Proceed to "PUTMARK". 

NUM8NN = NUM8NN + 1 

SVMRKDAT+ip 22 ] 3 £jj- = MKj (i = 0-6; see above for j) (Tag here "VACSTOR") 
If MODREG ^ 24: 

P22DE1X = P22DEX + 7 
Proceed to "MARKDONE" 

If P22DEX = 28: (in P24 if get here) 

TS = 0 

If P22DEX ^ 28: 

TS = P22DEX + 7 
P22DEX = TS 
Proceed to "MARKDONE" 

PUTMARK 

MRKBUFl+i = MKj (i = 0-6; see above for j) 

If bit 14(R21MARK) of FLAGWRD2 = 1: 

End of task 
Proceed to "MARKDONE" 

MARKDONE 

If MARKINDX = 0: 

Establish "MK-VB5X" (priority 22g) 

End of task 
MKREJECT 

If bit 14(R21MARK) of FLAGWRD2 = 1: 

If MRKBUFl 0: (i.e. last mark not yet being processed by R22) 

MRKBUFl = -1 
Resume 
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(If bit 14(R21MARK) of FIAGWRD2 = l): 

If bit 7(R22CAFLG) of FLAGWRD9 = 1: (set by "RENDI") 

Set bit 12(REJCTFLG) of FLGWRDIO = 1 (for "REND?" use) 
Resume 

If bit 4(MAMFLG) of FLAGWRDl = 0: 

Perform "ALARM" (pattern OllOg) 

Resume 

Set bit 4(MARKFLG) of FLAGWRDl = 0 (Tag here "REJECTS") 

If MODREG = 24: 

Set bit 3(P24MKFLG) of FLAGWRD2 = 0 
If P22DEX = 0: 

TS = 28 
If P22DEX 0: 


TS = P22DEX - 7 


SVMRKDAT, 


TS 


= - SVMRKDAT, 


TS 


(complement time information) 


dp 


dp 


If MODREG i 24: 

MARKINDX = MARKINDX + 1 (Tag here "REJECT4") 


If MODREG = 22: 


NUM8NN = NUM8NN - 1 


P22DEX = P22DEX - 7 


SVMRKDATp22QEx "" " SVMRKDAT. 
dp 


P22DEX 


(complement time) 


•dp 


Establish "MKVBDSP" (priority 22^) 

8 


Resume (Note that "KLEENEX" bypassed, so may have more than F V51 

on DSKY, e.g. N25 and R1 = 000l6g also) 
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R23CSM Established by "GOTOR23" for a V54E 
Set bit 14(R21MRK) of FLAGWRD2 = 0 
MRKBUFl = -1 

Change priority of present job to 27 q (higher than R22) 

TS = 0694 

vn 

Proceed to "GOXDSPF" : if terminate, proceed to "R21END" 

if proceed, proceed 

othervd.se, proceed to previous line 

Proceed to "R23CSM1" 

R23CSM1 

TS = 5345 

vn 

Proceed to "MARKMONR": if terminate, proceed to "R21END" 

if proceed, proceed to "R21MD" 
othervd.se , proceed 

Inhibit interrupts 

MRKBUFlj = T 

dp now 

MRKBUFH-2 = CDU (MRKBUFI+3 and MRKBUFl+5 loaded by N94 

^ in "R23CSM" ) 

MRKBUFl+4 = CDU 

z 

MRKBUFl+6 = CDU 

X 

Release interrupts 

Proceed to "R23CSM1" ("V86PERF", if done promptly, can be 

used to reject the mark) 

R21END 


Perform "KLEENEX" 

MRKBUFl = -1 

Change priority of present job to l6g (allow R22 to finish if processing 

mark, vd.th proper R21MARK bit value) 

Set bit 14(R21MARK) of FIAGWRD2 = 1 
Proceed to "ENDEXT" 
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R52 Entered from "PIKUP20" , "PR0G22A", "PR0G24" , "P23.57", and "R51" 

Set bit lO(ADVTRK) of FLAGWRD8 = 0 

SAVQR52 = Return address (enter here from "S22N7071"; Tag "R52VRB") 
DESOPTT = CDUT 
DESOPTS = CDUS 
AOPOLD = T 

now 

OPTIND = +0 

Set bit 6(SGTMK) of FLAGWRDO = 0 (notation R53FLAG) 

If bit 10 (LMTRG) of FLAGWRDl = 1: (notation TARGIFLG) 

Proceed to "R52H" 

Set bit 15(TERMIFLG) of FLAGWRD7 = 0 
Proceed to "R52C" 

R52C 

If SWSAMPLE } 0 : (i.e. Computer Control of optics) 

Proceed to "R52D" 

If bit 6(SGT]yiK) of FLAGWRDO = 0: (Tag here "R52M") 

Establish "R53J^OB" (priority 24g) 

If MODREG 7^ 24: (Tag here "R52G") 

Proceed to "R52FA" 

If PASSCNT > 0; 

PASSCNT = PASSCNT - 1 
Proceed to "R52D" 

If bit 3(P24MKFLG) of FLAGWRD2 = 0: (new mark not yet available) 

Proceed to "R52D" 

If P22DEX = 0: 

XI = - ("SVMRKDAT" + 28) 
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) 


If P22DEX ^ 0: (NOTE that sampled at different times to check for zero 

and to compute XI, hence if get "5th" 
XI = - ("SVMRKDAT" - 7 + P22DEX) mark could have meaningless data in 

the 7 ceils before start of SVMRKDAT) 
MARKDATA = XI (i.e .-address of last mark point) (Tag here "R52K") 

TS = E (i.e. time tag of point) 

-^^dp 

If TS ^ 0: (meaning a mark reject received) 


Proceed to "R52D" 


S22T0FF = TS 


T 

decl 


TS 


Perform "CSMCONIC" 


CSMPOS = (B29 earth, B27 moon) 

•XI = MARKDATA 


Perform "GETUM" 


UM = TS 


ALPHAV = unitCSMPOS 
Perform "SETRE" 

ERADM = ERADM + ALT 
TS = - unitCSMPOS • UM 
TS^ = ERADM 

If bit 12(CM00NFLG) of FLAGWRD8 = 1: 

Shift TS^ left 2 places (to scale factor B27) 

S22RH0 == jcSMPOS/ ^TS - \/(TS^ / | CSMPOS ) f - (l - T3^)' ) 
X782^ = CSMPOS + S22RH0 UM 
TS = X782 

If bit 12(CM00NFLG) of FLAGWRD8 = 1: 

Shift TS right 2 places (to B29) 

ALPHAV = TS 
TS = S22T0FF 


Perform "LAT-LONG" 
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LANDLONG = ^ LONG 
LANDALT = ALT 

Set bit 14 (NEWLMFLG) of FLAGWRD 8 = 1 
Set bit 3(P24JyiKF]JG) of FLAGWRD2 = 0 


PASSCNT = C 


nopass 


- 1 


Proceed to "R52D" 


R52FA 


TS = 0.50 second 

Delay TS seconds (by putting job to sleep via "DELAYJOB") 
If bit lO(LMTRG) of FLAGWRDl = 1: 


Proceed to "R52H" 

If bit 15(TERMIFLG) of FLAGWRD? = 1 : (set by end of "R53") 

Proceed to address specified by SA'VQR52 
Proceed to "R52C" 

R52H (Entered only if tracking LM, from "R52" and "R52FA") 

Perform "R 6 ICSM" 

If bit 5(TRACKFLG) of FLAGWRDl = 0: 


Proceed to address specified by SAVQR52 
If bit 7(UPDATFLG) of FLAGWRDl = 1: 

Proceed to "R52D" 

TS = 1.80 seconds 

Proceed to second line of "R 52 FA" 


R52D 

TS = T + K_ , , 

now 2 p 4 secdp 

If bit 14 (P 24 FLAG) of FLAGWRD9 = 1: 


TS = TS 


- K 


p 5 secdp 


AOPTIME = TS 
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O 


If bit lO(LMTRG) of FLAGWRDl = 1: 


(program notation TARGIFLG) 


(Tag here "LE1M52") 


^decl = 

Perform "LEMCONIC" 

STAR = R ^ . 

- -att 

If bit lO(LMTRG) of FLAGWRDl = 0: 

If bit 9(LMKTRG) of FLAGWRDl = 1: (program notation TARG2FIG) 

If bit lO(ADVTRK) of FL/IGWRD8 = 1: (Tag here "IM52") 

Proceed to "ADVTRACK" 

TS = AOPTIME 
Perform "LALOTORV" 

STAR = ALPHAV 

If bit 9(LMKTRG) of FLAGWRDl = 0: 

If STARIND = 0: 

TS = STARSAV2 
If STARIND > 0: 

TS - STARSAVl 
Proceed to "COM52" 


"^decl = 

Perform "CSMCONIC" 

TS = unit(STAR - R . . ) 

£L"G u 

Proceed to "C0M52" 


(tag here is "LMKIMCOM", for LM or landmark) 


C0M5: 


STAR = unit((REFSMMA'5 
Perform "CDUTRIG" 
Perform "CALCSXA" 


J 
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If bit 7(CULTFLAG) of FLAGWRD3 = 1: 

If bit lO(LMTRG) of FIAGWRDl = 0: (Tag here "R52L") 

TS = 0404g 

Perform "PRIOLARM" : if terminate, proceed to "TERM52" 

if proceed, skip next line 
otherwise, skip next line 


End of job 
If MODREG 7^ 24: 

Proceed to "R52FA’' 


TS = 0.05 second 

Proceed to second line of "R52FA" 


PACTEMP = K 


SOdgtr^p 


If bit 7(CULTFLAG) of FLAGWRD3 = 0: 

If (PAC - 0 and (PAC - > 0: 

PACTEMP = PAG 


Skip next line 


PACTEMP = K 


50dgtr 


sp 


If bit lO(LMTRG) of FLAGWRDl = 1; 


(Tag here "R52JA") 


Proceed to "R52E" 

If bit 14(P24FLAG) of FLAGWRD9 = 0: 

Proceed to "R53CHK" 

If bit 14(NEWLMFIJG) of FLAGWRD8 = 0: (if hit is 1, have a new 

landmark position estimate 
Proceed to "RATESUB" and hence first-difference 

scheme could give false rate) 

Set bit 14(NEWLMFLG) of FLAGWRD8 = 0 
AOPOLD = AOPTIME 


Proceed to "R53CHK" 


R5 3CHK 

If bit 6(SGTMK) of FLAGWRDO = 0: 
TS = 0692 

vn 

Perform "GODSPR" 
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Proceed to "R52E" 


R52E 

DESOPTT = PACTEMP (note that interrupts not inhibited for 

these 2 lines, meaning that could get a 
DESOPTS = SAC "TZ^RUPT" drive with inconsistent desired 

angles; done correctly in "RATESUB") 

If MODREG 24: 

Proceed to "R52FA" 

TS = 0.05 second 

Proceed to second line of "R52FA" 

R53JOB Established by "R52C" 

Perform "R53" 

End of job 

TERM52 Entered for V34E response to 0404g display 

Perform "KLEENEX" 


Proceed to "TERMSXT" 

RATESUB Entered from "COM52" 

RATETEMP = (AOPTIME - AOPOLD), with sign agreement forced, scaled B24 cs 
AOPOLD = AOPTIME 

RATETEMP = RATETEMPtl (i.e. time difference, BIO cs) 

SRTEMP = / RATETEMPgp) (SAC - DESOPTS ) (ones comp, difference) 

TRTEMP = (C^pyng^ / RATETEMPgp) (PACTEMP - DESOPTT) (ones comp, diff.) 

RATETEMP+1 = 1 (BI 4 , counter) 

IfdSETEMrl , K_^,t)>0: 

SRTEMP = - K X sgn SRTEMP 

mmaxsrt ° 

RATETEMP+1 = 0 

if(|mTfflp|+ 

(TRATE, SRATE) = (TRTEMP, SRTEMP) 

Proceed to "R53CHK" 
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ADVTRACK Entered from "R52D" for advanced ground track (specified 
via "S22N7071'') 

TS^ = unitZ 

TS„ = T 
2 now 

AOPTIME = TS 2 

TS = TS^ (non-zero, meaning moon) 

Perform "RP-TO-R" 

STAR = TS 

T, , = AOPTIME 
dec! 

Perform "CSMCONIC" 


TS^ 




(in push-down address 24D) 


PDULOS = - unitR . , 
- -att 


m. 


TS = (bits 3-1 of landmark), rescaled to scale factor B4 

AOPANG = K . ^ TS 
mperiod 

TS^ = (STAR • PDULOS) STAR 

PDULOS = unit ( (PDULOS - TS^) cos AOPANG + TS 2 + 

(STAR PDULOS) sin AOPANG ) 

STAR = unitTS^ 

AOPANG = (1/6) - AOPANG (the I /6 is 60°) 

TS 2 = (STAR • PDULOS) STAR 

PDULOS = unit ^ (PDULOS - TS^) cos AOPANG + TS 2 + 

(STAR PDULOS) sin AOPANg) 

STAR = PDULOS 
TS = STAR 
Proceed to "C0M52" 

Entered from "P23", "P 5 IB", and "R53JOB" 

R 53 EXIT = Return address 

Set bit 6 (SGTMK) of FLAGWRDO = 1 (program notation R53^1AG) 
Perform "SXTMARK" 
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If MODREG 7^ 24: 

TS = 4 

If MODREG = 22: 

TS = 0 

If (TS - 5 + MARKINDX) = 0: (i.e. no marks made) 

Proceed to third line of "R53" 

Perform "MKRELEAS" (Tag here "R53A1") 

Proceed to "R53C1" 

R53C1 Entered from "R53" and "R56" 

TS = 0 

Perform "CLEANDSP" 

If (MODREG - 32)^ 0: (e.g. P22, P23, or P24) 

Set bit I5(TERMIFLG) of FLAGWRD? = 1 
Proceed to address specified by R53EXIT 
TS = 0171^ (Tag here "R53C") 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd-se, proceed to previous line 

If STARCODE^ -0 or if STARCODE > 50g: 

Set bit 7(0perator Error) of channel 11 = 1 

Proceed to 6th line of "R53C1" 

TS = 6 (bits 6-1 of STARCODE) 

If STARIND = 0: 

BESTI = TS 

If STARIND - 1: 

BESTJ = TS 

Set bit 15(TERMIFIG) of FLAGWRD7 = 1 (no effect for R56) 
Proceed to address specified by R53EXIT 
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R56 


Entered from "P5IB" and "R5I" 


R53EXIT = Return address 


TS = 0694 

vn 

Proceed to "VNFLASH" 

: (if terminate, proceed to "GOTOPOOH") 
if proceed, proceed 
otherwise, proceed to previous line 

Perform "TESTMARK" 

TS = 0 

Perform "CLEANDSP" 

TS = 5300 

vn 

(Tag here "R56A") 


Proceed to "G0MARK2"; if terminate, proceed to "GOTOPOOH' 



if proceed, proceed to previous line 
othenrjise, proceed 

SAC = MRKBUFl+3 

(loaded in R1 of N94) 

PAG = MRKBUFl+5 

(loaded in R2 of N94) 


Inhibit interrupts (SAC and PAG loading done in interpretive language, 


MRKBUFl , = T 

dp now 

MRKBUFl+2 = CDU 

7 

MRKBUFl+4 = CDU 

z 

MRKBUFl+6 = CDU 

X 

Release interrupts 

Perform "CLEARMEiK" 

maximizing the delay between ENTR response and the 
sampling of CDU angles. Also can be delayed if 

R67 active, since higher priority than P54/R56). 

TS = 000l6g 

Proceed to "GOPERFl": 

Proceed to "R53C1" 

if terminate, proceed to "GOTOPOOH" 
if proceed, proceed 

otherwise, proceed to 4th line of "R56" 
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R57 Entered from "P23" and "R57D" 

If bit 13(REFSMFLG) of FLAGWRD3.= 1: 

TS = 00015g 

Proceed to "GOPERFl"; if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
otherwise, proceed to "R57C" 

Perform "R51DSPA" 

Perform "DOR 6 O" (TS set from "R 5 IDSPA" ) 

Proceed to "R57C" 

M2C 

Perform "TESTMARK" 

Set bit 12(P23CALIB) of FLAGWRD5 = 1 
TS = 5900 

vn 

Perform "GOMARKFR" : if terminate, proceed to "GOTOPOOH" 

if proceed, skip next 2 lines 
otherwise, skip next 2 lines 

TS = III 2 and perform "BLANKET" (R3BLNK, R2BLNK, RIBINK) 

End of job 
Proceed to "ENDR57" 

MARKDISP Established by "MARKDIF" 

TS = 0687 ^ (see "OPDEGOUT": a negative "true" angle is 90-0) 

Perform "GOMARKFR": if terminate, proceed to "GOTOPOOH" 

if proceed, skip next 2 lines 
otherwise, proceed to "R 57 D" 

TS = 101^ and perform "BLANKET" (R3BLNK, RIBLNK) 

End of job (can use V22 N 94E to change MRKBUFI+ 5 ) 


TRUNBIAS = MRKBUFl+5 - K^„ 

19p77deg 

Proceed to "ENDR57" 


(ones complement difference of 
twos complement numbers formed) 
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(if merely want to repeat mark, need 
just push mark button again) 


Perform "CLEARMRK" 

Proceed to "R57" 

ENDR57 

Set bit 12(P23CALIB) of FLAGWRD5 = 0 
Perform "CLEARMRK" 

Return (to routine calling "R57") 
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Quantities in Computations 

See also list of major variables and list of routines 


ALPHAV: See Coordinate Transformations. 


ALT: See Coordinate Transformations. 

AOPANG: Rotation angle used in "ADVTRACK", scale factor BO, units 
revolutions. Uses same cell as AOPTIME, but separate tag used 
for clarity. 


AOPOLD: Previous value of AOPTIME used in "RATESUB" to compute optics 
rates, scale factor B28, units centi-seconds . 

AOPTIME: Value of R52 time used to compute optics pointing information 
for landmark or LM, scale factor B28, units centi-seconds. Except 
for use in advanced ground track mode, incremented in "R52D" in order 
to compensate for computing and optics hardware delays. 


BESTI, EESTJ: See Inflight Alignment. 

C , viki/jri ■ Single precision erasable memory constant, program notation 
cuucnicwa hqjjuchKWD" , scale factor BI 4 , used to specify (if positive 

non-zero) the number of centi-seconds delay before "MARKDIF" is 
performed after receiving an optics mark button input. If the cell 
is zero or negative, the delay is 0.01 second. 

C : Single precision erasable memory constant, program notation 

nopasSpjjjQ^p^gg,,^ scale factor BI 4 , used to specify how often a check 
should be made in "R52C" for a new mark from which to compute a 
revised landmark location. To check every nth time, cell should 
be set to n, since except for "PR0G24" initial setting the loading 
of PASSCNT is done with the decremented value of the constant. 


C Single precision erasable memory constant, program notation 

shaftsf iishaftsF", scale factor B25, iinits pulses per (revolution/centi- 
second). For a saturated error counter (384 pulses) corresponding 
to N degrees/second, cell should be set to 384 x 3^0 x (1/N) x 100 
X 2“25, where first term is saturated error counter (600g), second 
converts from revolutions Lo degrees, third is reciprocal of full- 
scale error counter, fourth converts from seconds to centi-seconds, 
and fifth is scale factor. For 20°/second (approrimate value in 
an earlier design), this formula gave 337*5 x 2“ 


C „: Single precision erasable memory constant, program notation 
trunsf,„ppyjjgp„^ scale factor B27, units pulses per (revolution/centi- 
second). For a saturated error counter corresponding to M degrees/ 
second, cell should be set to 384 x 36 O x (l/M) x 100 x 2~^ , 
where terms have analogous meanings to those for ^ For 

10°/second (approximate value in an earlier design!, this 

formula gave 2 (337 * 5 x 2"^) . 


C3IFLWRD: See Digital Autopilot RCS Routines. 
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CDUS: Single precision value of counter input cell 0036^, containing 
the optics CDU shaft angle (also identified with the X axis), 
scale factor B-1, units revolutions, in twos complement. 

CDUT: Single precision value of counter input cell 0035gj containing the 
optics CDU trunnion angle (also identified with the Y axis), scale 
factor B-3, units revolutions, in twos complement. See K2Q^ggg* 

CDUiCMD (i = T, S): Single precision value of computer special erasable 
memory cells 0053^ ~ 0054g respectively (also identified as OPTYCMD 
and OPTXCMD respectively) . Pulses are generated based on the contents 
of these cells if bits 12-11 respectively of channel 14 = 1, and 
the optics CDU error counter is loaded from the 3200 pps pulse 
train information if bit 2 of channel 12 = 1. For the position- 
command mode (bit 8 of channel 12 = O), 2^5 pulses from CDUTCMD, and 
2^^ pulses from CDUSCMD, give one revolution. For the rate-command 
optics mode (bit 8 of channel 12 = l), a saturated error coimter (3^4 
pulses) is e.g. 10%ec for CDUTCMD and 20%ec for CDUSCMD. The 
same cells (in this "rate" mode, i.e. with error coionter giving a steady 
voltage level output) are also used for TVCYAW and TVCPITCH commands 
for the SPS engine (see Digital Autopilot Interface Routines). 

COMMAND!, COMMANDS: Raw values of trunnion and shaft commands computed in 

"OPTTEST" for optics position-command mode, same scaling as CDUiCMD. 

The sign of COMMANDS may be reversed for shaft-stop avoidance purposes . 

CSMPOStSee Measurement Incorporation. 

DESOPMOD: Single precision value of SWSAMPLE the previous time that 
"OPTMON" was performed, used to determine if a change has taken 
place in the setting of the optics mode switches (Computer Control, 
Manual, or Zero). 

DESOPTT, DESOPTS: Single precision values of desired CDUT and CDUS 

respectively, twos complement with same scaling as CDUT and CDUS 
respectively. They are used in "OPTTEST" to generate optics driving 
commands (if OPTIND and SWSAMPLE are satisfactory), and in "RATESUB" 
as the previous cycle's desired value for use in generating optics 
rate command information. 

ERADM: See Coordinate Transformations. 

EXTVBACT: See Verb Definitions. 

IMODES33: See IMU Computations. 
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K 


2p4secdp’ 


Constant, program notation "2.4SECDP", scale factor B28, units 
centi-seconds . Value is 240 x 2~^°, corresponding to 2.4 seconds 


^19p77deg‘ precision constant, program notation "19.77DBO", 

scale factor B-3, units revolutions. Value is 61740-., 
corresponding to -7199 x 2“^^ (ones complement), but since 
is used (in "MA.RKDISP") in twos complement, is equivalent to 
-7200 X 2“^, or 19.7754° (added to raw optics trunnion angle 

to compute bias). See K_^, 

20degs 

^20degs‘ precision constant, program notation "20DEGS", scale 

® factor B-3, units revolutions. Value is 7199 x 2~^^, but 
since used (in "EMDZOPT") in complement form, value equivalent 
to 7200 X 2“1^, or 19. 7754°* When the optics are "zeroed", the 
CDUT cell is loaded with - : conseqioently, to find the 

"true" trunnion angle, this 19.7754° value must be added, 

and to convert "true" to actual cell contents this 19.7754° 
value must be subtracted. See e.g. "CALCSXA". Octal is 6l740g (set) 


^20d m ■ ‘^°^^stant, program notation "20DEG'SMN", scale factor B-3, units 

revolutions. Value is -7199 x 2“^^ (as a ones complement number), 
equivalent to -19.7754° (see ). Causes limiting of tmmnion 

value if the derived "true" angle®?! negative. 


\5dg‘ constant, program notation "13,14,15" scale 

factor B-1, units revolutions. Value is 70000-., corresponding 
to a value of 10000^ as used in program (after a one-bit^corrStion 
for convenience in forming absolute value), or 45°. If CDUS is = or 
less than this value, then ZONE is set 0; if greater and ZONE 
IS zero, then ZONE is set to CDUS. 

^50dgtr= Constant, program notation "38TRDEG", scale factor B-3, units 
revolutions. Value is 0. 66666667, corresponding to 30° in the 
CDUT, or a "true" trunnion angle of 30 + 19.7754 = 

^20degs^ Constant formerly was O.4 (a "true" value 
01 31.115k ), hence^’the notation. 


constant, progr^ notation "NEGl/2", scale factor 


-““h 577778, corresponding to a value 

Of 20001g as used in the program (after a one-bit correction 
or convenience in fomning absolute value), or about 90°. If CDUS 
magnitude io less than 90°, then there is considered to be no 


problem with the optics stops . 


^m3bt' precision constant, program notation "NEG2", scale factor 

B— 1, units revolutions . Value is —2 x 2“14, but used in program 
in such a way (for convenience in forming absolute value) that 
effective value in program is -3, or about -0.033°. A change in 
an I]^ CDU angle of more than 3 least increments in C 
centi-seconds causes the optics mark to be reiected j^'^^chkwd 
"MARKDIF", except for P24. 


^mmaxsrt' precision constant, program notation "-MAXSRT", scale 

factor BI4, units pulses. Value is -384 x 2“^^, corresponding 
to -384 (the complement of the value of a saturated error counter, 
which is 600g = 384). 
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K . Constant, program notation "MPERIOD", scale factor B-4, 
mperio revolutions (of moon) per orbit (of CSM) . Value is 

0.047619. For a lunar rotation rate of 2 . 66169947E-6 
rad/sec (see K in Orbital Integration), this would 

be an orbit perxo^S?'^ about II7.I minutes. This time 
is the period of a circular orbit about 50 nmi above the 
mean lunar radius . 

K : Single precision constant, program notation "MAXPLS", scale factor 
™^^^B14, units optics CDU output pulses. Value is -83 x See 

CDUiCMD above for pulses/revolution, noting that a scale factor for 
single precision information of B1 revolutions is equivalent to a 
scale factor of BI4 pulses if 2^^ pulses = 1 revolution. 


K Single precision constant, program notation "MAXPLSl", scale 

factor BI4, units optics CDU output pulses. Value is -82 x 2“^^, 

but used in program (for convenience in forming absolute value) in 

such a way that effective value is -83 (see K ). 

' raxps 


K csecdp’ Constant, program notation ".5SEGDP", scale factor B28, imits 
^ ^ centi-seconds . Value is 50 x 2“^°, corresponding to 0.5 seconds. 


LANDALT, LANDLONG: See Orbital and Rendezvous Navigation. 


LANDMARK: See Orbital and Rendezvous Navigation. 


MARKDATA: See Measurement Incorporation. 

MARKDOWN: See Measurement Incorporation. 

MARKINDX: Single precision cell, scale factor BI4, loaded in "SXTMARK" with 
5 for P22/P24, and with 1 for other programs, and modified in "MARKDIF" 
so as to contain the count of the number of marks remaining (except 
for P24, when returned to original value). It is incremented in 
"MKREJCT" (except P24) when a mark is rejected. Used in "R53" (except 
for P24) to force at least one mark to be processed before termination 
of the mark sequence . 

MKCDUi, MKT2T1: Set of buffer cells loaded in "MARKRUPT" with optics 
and IMU CDU angles (with time in MKT2T1, double precision), and 
used in "MARKDIF" to load appropriate cells. The sequence of the 
cells in memory is MKT2T1,^, MKCDUI, MKCDUS, MKCDUZ, MKCDUT, and 
MKCDUX. 


MRKBUFl: Set of cells loaded in "PUTMARK" with optics mark information for 

those programs not using the SVMRKDAT set (l.e. except for P22 and P24) . 
Sequence of cells has data as described above for MKCDUi, MKT2T1. For 
common use of processing routines, "R23CSM1" and "R56" load these cells 
with information in the same format as that done for normal optics 
marks. For R22 use, a setting of MRKBUFl to a negative number indicates 
that no mark data are in the cells. In that program, a mark reject 
(or V86E) must be done sufficiently promptly after a mark to avoid 
having it be incorporated (barring the N49 display). The notation 
"MRKBUFl" refers to the first cell of the set, i.e. MRKBUFl+0 (there 
are 7 cells in the set). 
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NUM8NN: See Orbital and Rendezvous Navigation. 

OPTCADR: Single precision cell used to contain return address for "SXTMARK". 


OPTIND: Single precision control cell, scale factor B14, used to control the 
performance of "OPTTEST" . If it is negative, inclixding -0, driving of 
the optics is bypassed. A setting of -0 means that the optics are 
"reserved": this setting is done in "S4O.6" when the output channel 
bits are set for TVC use (see CDUiCMD above). The setting to -1 
is done in e.g. "INITSUBA" in conjunction with V37 processing. 

OPTMODES: Single precision flag word used for control of "T4RUPT" 

computations associated with the optics haixiware. The individual 
bits have the following meanings: 


Bit Symbol Meaning 

10 ZROPTFIN Zeroing of optics has been completed since last 

fresh start or restart if bit is 1. 


7 OCDUFBIT 


5 OPMDIBIT 
4 0PMD2BIT 

3 ZOPTCS 

2 OCDUINHT 


Nominal last sampled value of channel 30 bit 7 
(0 if an optics CDU fail indication has been 
generated by the optics CDU hardware). If OPTIND 
= -0, the value of the bit is not changed in 
"OPTMON", although a channel 30 bit 7 change will 
cause "OCDUFTST" to be entered to change bit 8 
of DSPTABtll (the Tracker light). 

Last sampled value of channel 33 (or C3IFLWRD) bit 
5: zero if Computer Control mode of optics desired. 

Last sampled value of channel 33 (or C3IFLWRD) bit 
4: zero if Zero Optics mode of optics desired. If 
bits 5-4 = ^^2’ mode of optics desired. 

Bit set 1 in "CSCTOZOP" to indicate that the wait 
for zeroing of optics is in process. It is set zero 
in "ENDZOPT", after the completion of the necessary 
wait. 

Bit set 1 to inhibit generation of Tracker alarm 
(bit 8 of DSPTABtll) within "OCDUFTST" routine. 


P22DEK: Single precision cell, scale factor BI4, used to select the 

appropriate set of SVMRKDAT cells to be loaded in "MARKDIF" for P22 
and P24: it equals the first cell of the SVMRKDAT set which is to be 
loaded when the next mark is received (decremented by 7 for a P22 
mark reject) . 

PAC: See Coordinate Transformations. 
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PACTEMP: Single precision cell, same scaling as PAG, used to retain the 
value of PAG derived in R52, with limiting if necessary, that is 
subsequently loaded into DESOPTT. 

PASSGNT: Single precision counter, scale factor BI4, initialized using 

^r.^rM>oc, "PR0G24" and used in "R52G" to determine if a check should 

IlUpclSS 

be made for a P24 mark upon which a revised landmark location computation 
should be based. 


PDULOS: Value of unit line-of -sight information used in "ADVTRAGK", scale 
factor Bl, stored in push-down list location OD. 

R53EXIT: Single precision cell containing return address from "R53" or 
"R56" (allowing "R53C1" to be used by both). 

RATETEMP: Pair of cells used in "RATESUB" for temporary storage purposes. 
Detail shown there since same cells used for (VHFGNT, TRKMKGNT). See 
Measurement Incorporation. 

S22RH0: See Orbital and Rendezvous Navigation. 

S22T0FF: See Orbital and Rendezvous Navigation. 

SAG: See Goordinate Transformations. 


SAVQR52: Single precision cell containing retiirn address from "R52". 

SOLD: Value of present shaft-driving error counter used for the rate mode 
of the optics, scale factor BI4, units pulses. Gell required because 
error coimter driven from GDUSGMD cell to change value, but SRATE 
contains the desired value itself. SOLD zeroed in e.g. "GSGTOMAN", 
where zeroing of bit 2 of channel 12 also zeros the error counter. 


SRATE: Value of desired shaft rate, scale factor BI4, units pulses (see 
G haftsf^ * cell is set 0 in "OPTTEST" if necessary to avoid 

the shaft stop. 


SRTEMP: Temporary storage for new shaft rate derived in "RATESUB", to avoid 
changing SRATE cell prior to limiting and to allow both SRATE and TRATE 
to be changed effective with the same optics interrupt. 


STAR: See Goordinate Transformations. Used in "R52D" to retain temporarily 
the position vector of LM or landmark (scale factor B29, units meters). 
In "ADVTRAGK" it is used to retain the unit vectors, scale factor Bl, 
about which rotation is performed. 


STARGODE: See Inflight Alignment. 

STARIND: See Inflight Alignment. Set 0 in "ROO" so that "R52D" will select 
STARSAV2 for e.g. P23. 


STARSAVl, STARSAV2: See Inflight Alignment. 
SVMRKDAT: See Orbital and Rendezvous Navigation. 




O 
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SWSAMPLE: Single precision cell containing information on the value of 
the optics hardware mode last sampled in "OPTMON" (DESOPMOD is 
loaded with the same value before teradnation of the routine). A 
positive non-zero value (i.e. 15) means Computer Control mode; a 
zero value means Maniial mode; and a negative value (-1) means 
Zero Optics mode. Scale factor is BI4. 

See Data Input/Output. 

TOLD: Value of present trunnion-driving error counter used for the rate 
mode of the optics, scale factor BI4, units pulses (see SOLD). 

TRATE: Value of desired optics trunnion rate, scale factor BI4, units 
pulses (see 

TRTEMP; Temporary storage for new trunnion rate derived in "RATESUB" 

( see SRTEMP ) . 

TRUNBIAS: Single precision value of trunnion bias angle, scale factor 
B-3, units revolutions, computed in "MARKDISP" (in R57) for use 
in "P23.85" (part of P23). Nominal "true" trunnion angle for the 
R57 procedure is zero (hence K is subtracted from the 

observed angle cell contents ^P' ' given by MRKBUFI+3) . 

UM: See Measurement Incorporation. 

WTOPTION: Single precision cell, scale factor BI4, set to 11 in "OPTMON" 
if switch from Zero to Mamal optics mode with zeroing not yet 
complete (alarm 01l6g is generated also). It is decremented by 1, 
with a lower limit of +0, when "OPTMON" is entered with previous 
and present cycle modes both Manual. If switch back to Zero from 
Manual before counter decremented to 0 (which occurs in about 5.3 
seconds), then ZOPTCNT is not reset to 32. Cell set 0 in "CSCTOZOP" 
and in "OPTMON" if go from Zero to Computer Control. 

X782v See Measurement Incorporation (no "measurement Incorporation routines" 
of the P22 type used for P24, of course). 

ZONE: Single precision cell set 0 in "ENDZOPT" or in "OPTTEST" if CDUS 
magnitude less than 45°, and set in "OPTTEST" if CDUS magnitude 
exceeds 45 and cell presently 0. It is used in "OPTTEST" in the 
implementation of the optics shaft stop munitor (if non-zero, only 
its sign IS employed). Cell is required because optics shaft 
stop are at - 270 from "zero" ("zero" is the position at which 
optics are left after zero mode emplo^d). If, after zeroing, 
wep to drive optics towards e.g. +70^^, then when CDUS exceeded 
45 ZONE would be set to positive non-zero. If continued to 
^ direction, e.g. to +100°, then +140°, then 

+170 (always with increments of less than 180° from present 
CDUS, so go "shortest" way, namely in same direction), then ZONE 
woind remain positive non-zero and optics would continue to 
drive. If, from the 170° point, the next DESOPTS were -l60° 

(or, equivalently, +200°), then "shortest distance" would again 
be the 30 across the 180° point, and the optics would be driven 
there, with ZONE remaining untouched (CDUS reading would be "-160°" 
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when reach DESOPTS). Note that, however, if had started at the 
"zero" point, would have driven optics in the opposite direction 
(i.e. though -30, -70, etc.). If the next DESOPTS were e.g. 
-100°(i.e. +260°), then here the optics woiild again be driven in 
the same direction, with ZONE imchanged, from -l60° to -100°, or 
only 10° away from the stop at +270° (note that "normal" method 
of reaching -100°, from "zero", would have gone the other way). 

At the -100° (actually +260° as far as how shaft angle got there 
is concerned) point, ZONE is still positive non-zero. If the 
next DESOPTS were e.g. -60° (i.e. +300°), this would generate a 
COMMANDS of (-60°) - (-100°) = +40°: to drive there directly, 
however, would require violating the hardware stop at 270°, and 
hence the stop monitor logic is invoked. With these conditions, 
all the conditions at the top of page OPTC-2 are satisfied, 
since CDUS magnitude (100°) exceeds 90°; ZONE ^ 0; the sign of 
ZONE = sign of COMMANDS (both positive); and magnitude of 
DESOPTS is 60° (less than 90°). Consequently, the COMMANDS 
polarity is reversed, so that instead of driving towards -60°, 
the optics are driven towards -140° (-100 + -40). Assuming that 
DESOPTS remains -60°, the next attempt would be to drive towards 
-220° (+140°, i.e. -140 -(-60 —140)), and so on. When CDUS is 
driven below 90°, then shaft stop logic is no longer involved, 
since "shortest path" is likewise one that avoids the optics shaft 
stops. Finally, when optics reaches the -60° point (the "long 
way" ) , ZONE would have been reset to 0 and then to negative non- 
zero, to protect the stop at -270° (+90°). If the value of 
DESOPTS were to "chatter" near a magnitude of 270, then the 
optics themselves would be driven in alternating directions: in 
this case, manual selection of optics zeroing shoijld be done. 

ZOPTCNT: Single precision cell, scale factor BI4, set to 32 at the 

start of optics zeroing (assuming no WTOPTION effect), to give an 
optics zeroing period of 33 x O.48 + O.4 = l6.2 seconds. An 
alarm (pattern ll6g) is generated if switch out of zeroing before 
completion of initial part of delay (about I5.8 seconds from when 
switch first sensed to be in zero mode). See WTOPTION (no 
setting of WTOPTION is made if switch to Computer Control: it is 
reset to 0 instead) . 
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Orbital Integration 


STATEINT Called by "ENDINT", and restarted via group 2.3 

Establish "STATINTl" (priority 05g) 

End of task 

STATINTl Established by "NDUTINPT" if bit 9(UTFUG) of FLAGWRD 8 = 1 , 

by "STATEINT", and by restart group 2.5 (in "ROO" for POO) 

If bit 5 (QUITFLAG) of FLAGWRD9 = 1: (set by "VERB 96 ") 

Make restart group 2 inactive 

Set bit 5 (QUITFUG) of FLAGWRD9 = 0 

End of job (must key e.g. V37EOOE to get periodic integration) 

T = T 
decl now 

Set bit 3(V960 NF]jG) of FLAGWRD 8 = 0 
Perform "INTSTALL" 

Set bit l(NODOV37) of FLAGWRD 2 = 1 
Set bit 5(STATEFLG) of FLAGWRD 3 = 1 

Set bits 4(C0NICINT), 2(9DIMWMAT), and l(WMATINT) of FLAGWRD 3 = 0 
Set bit 9(P00FLAG) of FLAG'WRD 3 = 1 

Set bit 3 (CSMINTSW) of FLAGWRD 3 = 1 (Tag here "STATEQP") 

If bit 6(0RBWFLAG) of FLAGWRD 3 = 1 : 

Set bit l(WMATINT) of FUGWRD3 = 1 
Set bit 8 (PRECIFIjG) of FLAGWRD 3 = 0 
Perform "INTEGRV" 

If bit 8 (SURFFLAG) of FLAGWRD 8 = 1 : 

Set bit 1(N0D0V37) of FLAGWRD 2 = 0 

Proceed to "ENDINT" 

T = T 
decl etcm 

Perform "INTSTALL" 

Set bit 3(CSMINTSW) of FLAGWRD3 = 0 
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Set bit 5(STATEFLG) of FLAGWRD3 = 1 

Set bits 4(C0NICINT), 2(9DIMWMAT), and l(WMATINT) of FLAG’WRD3 = 0 
If bit l(RENDWFLG) of FLAGWRD5 = 1: 

Set bit l(WMATINT) of FLAGWRD3 = 1 
Set bit 8(PRECIFIG) of FLAGWRD3 = 1 
Perform "INTEGRV" 

Set bit l(NODOV37) of FLAGWRD2 = 0 
Proceed to "ENDINT" 

ENDINT 

Set bit 5(STATEFIG) of FLAGWRD3 = 0 

Set restart group 2 to phase 3 (2.3, causing "STATEINT" to be called) 

Call "STATEINT" in seconds 

End of job 
CSMPREC 

Perform "INTSTALL" 

IRETURN = Return address (to routine calling "CSMPREC") 

Set bit 3(CSMINTSW) of FLAGWRD3 = 1 

Set bit 8(PRECIFLG) of FLAGWRD3 = 1 

Set bits 4(C0NICINT) and l(WMATINT) of FLAGWRD3 = 0 

Proceed to second line of "INTEGRV" 

LEMPREC 

Perform "INTSTALL" 

IRETURN = Return address (to routine calling "LEMPREC") 

Set bit 3(CSMINTSW) of FLAGWRD3 = 0 
Proceed to 4th line of "CSMPREC" 

CSMCONIC 

Perform "INTSTALL" 

IRETURN = Return address (to routine calling "CSMCONIC") 

Set bit 3(CSMINTSW) of FLAGWRD3 = 1 
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I 


Set bit l(MATINT) of FIAGWRD3 = 0 
Set bit 4(C0NICINT) of FLAGWRD3 = 1 
Proceed to second line of "INTEGRV" 

LEMCONIC 

Perform "INTSTALL" 

IRETURN = Return address (to routine calling "LEMCONIC") 

Set bit 3(CSMINTSW) of FIAGWRD3 = 0 
Proceed to 4th line of "CSMCONIC" 

INTBGRVS 

Set bit 8(PRECIFLG) of F1AGWRD3 = 1 
PBODY = 0 

If bit 12(M00NFLAG) of FLAGWRDO = 1: 

PBODY = 2 

IRETURN = Return address (to routine calling "INTEGRVS") 

TDELTAV = 0 
TNUV = 0 

Perform "RECTIFY" 

Set bit l(WMATINT) of FLAGWRD3 = 0 

Set bit 15(RPQFLAG) and 13(NEWIFLG) of FLAGWRD8 - 1 

Proceed to "ALOADED" 

INTSTALL 

QPRET = Return address (since enter in interpretive language) 

If bits 14(INTINUSE) and 13(INTGRAB) of FLGWRDIO ^ 00^: 

Put present job to sleep (starting address id = 2nd line of 
"INTSTALL", i.e. check of bits) 

Set bit 14(INTINUSE) of FLGWRDIO = 1 

Proceed to address specified by QPRET (of present job, of course) 
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INTWAKE 


If bit 13(INTGRAB) of FIGWRDIO = 1: (means restarted) 

TBASE2 = QPRET of present job 

Set restart group 2 to resume computations at next step 
QPRET (of present job) = TBASE2 

If bit I3(INTGRAB) of FIGWRDIO =0: (i.e. got a restart) 

Proceed to address specified by QPRET (of present job) 

Awaken all jobs with starting address id = 2nd line of "INTSTALL" (Tag 

here "INTWAKEO") 

Set bits 14(INTINUSE) and 13 (INTGRAB) of FIGWRDIO = 0 

Proceed to address specified by QPRET (of present job) 

AVETOMID (Entered from "AVGEND") 


EGRESS = Ret\irn address 


If bit l(RENDWFIG) of FLAGWRD5 and bit 6(0RBWFLAG) of FUGWRD3 ^ OO 2 : 

TS^ = (holds in MPAC) (tag here "INT/W") 

Perform "INTSTALL" 

Set bit l(WMATINT) of FLAGWRD3 = 1 

Set bit l(AVEMIDSW) of FLAGWRD9 = 1 

Set bit 2(9DIMWMAT) of FUGWRD3 = 0 

Set bit 3(CSMINTSW) of FLAGWRD3 - 1 

decl 1 
Perform "INTEGRV" 


X2 - 2 (flag for moon scaling) 
Perform "INTSTALL" 


(tag here "SETCOAST") 


If bit 2(AM00NFIG) of FIAGWRDO = 0: 


X2 = 0 


^ect - 

RCV = R ^ 
“ -rect 


T = T 
et pptm 


(shifted left X2 places) 
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(shifted left X2 places) 


^ect = ^ 

VCV = V , 
— — rect 

TDELTAV = 0 
TNUV = 0 


T = 0 
c 

XKEP = 0 (notation also "XPREV") 

Perform "MOVEACSM" 

Set bit 12(CM00NFIG) of FIAGWRD8 = 1 
If bit 2(AM00 NFIjG) of FLAGWRDO = 0: 

Set bit 12(CM00NFLG) of FLAGWRD8 = 0 

If bit 8(SURFFLAG) of FLAGWRD8 = 1: 


QPRET = EGRESS 

Proceed to "INTWAKE" (will return to address in QPRET) 

T = T 
decl pptm 

Set bit 5(STATEFLG) of FLAGWRD3 = 1 

Set bits 4(C0NICINT), 2(9DIMWMAT), and l(WMATINT) of FLAGWRD3 = 0 
Set bit 3(CSMINTSW) of FLAGWRD3 = 0 
Perform "INTEGRV" 

Proceed to address specified by EGRESS 

MIDTOAVl R41 entrance for a "reset TIG flag", from "P4OS/SV" (P15, P40, 

and P41) 

IRETURNl “ Return addi'ess 
Perform "INTSTALL" 

Set bit 3 (midifug) of FLAGWRD9 = 1 


TS = T + K, . 

now timedt 

Tdecl-TS<0: 


Set bit 3 (midifug) of FUGWRD9 = 0 

IRETURNl = IRETURNl +1 

Perform "AURM" (pattern 1703g) 

TTOADD = K,. . 

timedt 

Proceed to 5th line of "MIDT0AV2" 


(i.e. desired time less than 

from now) 
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Proceed to 6th line of "MIDT0AV2" 

MIDT0AV2 (R41 entrance for a "set TIG flag", from "P47CSM" and 

"S61.1") 

IRETURNl = Return address 

Perform "INTSTALL" 

Set bit 3 (midiflag) of FLAGWRD9 = 0 

TTOADD=K. 

timed t 


T , T = T + TTOADD 
decl now 


(causes "DIFEQ+2" to 
transfer to "CKMID2") 


(tag here "ENTMrD2") 

Set bit idftMATIMT) of FLAGWRD3 = 0 (tag here "ENTMIDl" ) 

Set bit 3(CSMINTSW) of FLAGWRD3 = 1 
Set bit 4(C0NICINT) of FLAGWRD3 = 0 
Set bit 2(MIDAVFLG) of FLAGWRD9 = 1 
Perform "INTEGRV" 

RTX2 = X2 (0 for earth, 2 for moon: used e.g. by "CALCGRAV") 
RTXl = XI (-2 for earth, -10 for moon) 

Set bit 2(AM00NFLG) of FLAGWRDO = 0 
If RTX2 0: 

Set bit 2(AM00NFLG) of FLAGWRDO = 1 
Til -att 

^1 = ^att 

T = T 

pptml att 

Inhibit interrupts 

= T — T 

pptml now’ 


with sign agreenent forced 


Proceed to address specified by IRETURNl 
CKMTDP Entered from "DIFBO+2" if bit 2 of FLAGWRD9 = 1 

If bit 3 (midiflag) of FLAGWRD9 = 0: 


l^dec 
If (T 


- T 


et 


1 


K. < 0: 

3csecs 


et 


- T 


now 


- ^ proceed to "A-PCHK" 


TTOADD = TTOADD + K , . ,, 

timedt 

T , = T + TTOADD 

dec now 


Proceed to "TESTLOOP" 
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) 


now timedt 

If - TS :>0: 

dec 

Proceed to "TESTLOOP" 

Set bit 3(MID1FIAG) of FUGWRD9 = 0 
IRETURNl = IRETURNl + 1 


Perform "ALARM" (pattern 1703g) 


TTOADD = K 


timedt 


T , — T + 

dec now 


TTOADD 


Proceed to "TESTLOOP" 


MOVEACSM 


~rectcm — rect 


— rectcm —rect 

T = T 
etcm et 

DELTAV = TDELTAV 
—cm — 

NUV = TNUV 
—cm — 

RCV = RCV 
—cm — 

VCV = VCV 
—cm — 

T = T 
ccm c 

XKEP^^ = XKEP (notation also "XPREV") 

Return 


MDVEALEM 

^ectlm ^ect 

^ectlm ^ect 

T = T 
etlm et 
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DELTAV, = TDELTAV 
~lm ~ 

NUV^^ = TNUV 

RCVi^ = RCV 
VCV-, = VCV 

T = T 
cljn c 

XKEP = XKEP (notation also "XPREV") 

Im 

Return 


MOVEPCSM 

^ect •^rectcm 
— rect “ — rectcm 

m == T 

et etcm 

TDELTAV = DELTAV 

— —cm 

TNUV - NUV 


RCV - RCV 


-cm 


VCV = VGV^^ 


T = T 
c com 


XKEP = XKEP 


cm 


Return 


MOVEPLEM 

—rect ” — rectlm 

V = V 

X-rect Xpectlm 

Lt ~ Ltlm 

TDELTAV = DELTAV^ 

TNUV = NUV^ 

RCV = RCV^ 

VCV = VCV. 

— — Im 

'^c ” '^clra 

XKEP - XKEP^ 

Im 

Return 


(XKEP notation also "XPREV") 


(XKEP notation also "XPREV") 
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RECTOUT 


Perform "RECTIFY" (sets X2 to PBODY) 


R . . — R , 

— att — rect 

(shifted right by X2 places) 

Push-down list 0D-5D 

V = V 

—att —rect 

( shifted right by X2 places ) 

6D-1ID 

T = T 

att et 


12D-13D 

-attl ^ect 

(no shift) 

14D-19D 

^ttl ^ect 

(no shift) 

20D-25D 

MUpPp = K 

muer_^2 


26 D- 27 D 


XI = -10 

If bit 12(M00NFLAG) of FIAGWRDO = 0: 


XI = -2 

Proceed to "INTEXIT" 

INTEXIT 

Reset overflow indicator 

Set bits 2(MIDAVFLG) and l(AVEMIDSW) of FLAGWRD 9 = 0 
Set bits 5(STATEFLG) and 8 (PRECIFLG) of FLAGWRD 3 = 0 
QPRET = IRETURN 

Proceed to "INTWAKE" (retiims to address in QPRET) 

USEPIOS Entered to obtain IM state vector if bit 8 (SURFFLAG) of 
FLAGWRD 8 = 1 , from "INTEGRV" (for "conic" or "precision") 

TS^ = RLS 

2 decl 

T = T 
et decl 

TS = 0.625 (i.e. non-zero quantity) 

Perform "RP-TO-R" 

RCV = TS 
TS^ = unitZ 
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^^2 = 

TS = 0.625 (l.e. non-zero quantity) 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 

Perform "RP-TO-R" 

VCV = K (TS RCV) 

— omegmoon — — 

TDELTAV = 0 

X2 = 2 (i.e. moon) 

PBODY = 2 
TNU V = 0 

Proceed to "A-PCHK" 

TESTLOOP 

If bit 5(QUITFLAG) of FLAGWRD9 = 1: (set by "VERB96"; reset by 

"STATINTl") 

Set bit 5(STATEFLG) of FLAGWRD3 = 0 
Proceed to "INTEKIT" 

X2 = PBODI 

Set bit 13 (MIDFLAG) of FLAGWRDO = 0 


If I RCV I - K 


rme 


-X2 


^ 0 : 


( I RCV I in push-down address lOD) 


Set bit 13 (MIDFLAG) of FLAGWRDO 


""l = S3d 


s/IrcvIV 


K 

muer 


-X2 


(scaled B28 In units of 
centi-seconds) 


TS^ = TS^ shifted right 7 places (giving scale factor B35, or 

least increment of 128 centi-seconds, 
with low-order bite of TS^ lost) 

TSo = TS2 shifted left 15 places (giving scale factor B20 
^ centi-seconds) 

If Kj. „ - TSo ^ 0, or if overflow taken place: 

dt2mx 3 


TS„ = K,, _ 

3 dt2mx 


(TS^ in push-down list location 12D) 


TS = with sign agreement forced 

TS = TS, shifted left 8 places (scale factor B20, units centi-sec) 
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If |TS| - TS^ 0, or if overflow has taken place: 

TS = TS^ sgn TS 

If 1 ts| - K,,„ <0: 

' ' dt2mn 

Proceed to "A-PCHK" 


DTd2 = ^ TS (accomplished by considering scaling of DTd2 B19, 
whereas TS is scaled B20) 

If bit 9(P00FLAG) of FIAGWRD3 = 0, proceed to "TIMESTEP" 

If bit 8(PRECIFLG) of FIAGWRD3 = 1, proceed to "TIMESTEP" (not GSM 

from "STATINTl") 

If TS - TS^ <0, proceed to "A-PCHK" (equals case does not transfer) 

If bit 13(NEWIFLG) of FLAGWRD8 = 0, proceed to "TIMESTEP" 

Set bit 13(NEWIFLG) of FUGWRD8 = 0 (if get here, came from "STATINTl") 


= T - T 
^■^4 dec et 


(scale factor B28, units centi-seconds) 


If TS, < 0, proceed to "INTEXIT" (no backwards integration) 

4 

TSp = TS, shifted right 6 places (rounded shift, scale factor B26) 

P 

If TS^ - 4 TS^ ^ 0, proceed to "INTEXIT" ("4" because of scaling) 
Proceed to "TIMESTEP" (at least 4 time steps behind) 

RECTIFY 


X2 = PBODY 

R . = RCV + (TDELTAV, shifted right 7 +X2 places) 

”T?GCt^ 

RCV = R . 

— — rect 

V . = VC V + (TNUV, shifted right 4 +X2 places) 

“T*G Cb 

= ^rect 
TDELTAV = 0 


TNUV = 0 

T = 0 
c 

XKEP = 0 (notation also "XPREV") 


Return 
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If bit 13(MIDFIAG) of FIAGWRDO = 1: 
Perform "CHKSWTCH" 

If TS <0: 

Perform "ORIGCHNG" 

Proceed to "INTGRATE" 
Proceed to "RECTEST" 


CHKSWTCH Entered from "A-PCHK" and "TIMESTEP 

If bit 15(RPQFLAG) of FLAGWRD8 = 1; 

TS = T , 
et 

Perform "LUNPOS" 

If bit I2(M00NFLAG) of FLAGWRDO = 1: 

TS = - TS 
RPQV = TS 

X2 = PBODY (tag here "RPQOK") 

TS = RCV + (TDELTAV, shifted right 7 +X2 places) 
If bit 12(M00NFLAG) of FLAGWRDO = 1: 

TS = |TS|, scaled B29 

TS = K , _ - TS 


(means RPQV not 
available) 


r sphere 

If bit 12(M00NFLAG) of FLAGWR.D0 - 0: 
TS = jTS - RPQV I - K 


(negative if outside sphere and 
moon-centered ) 


r sphere 


(negative if inside sphere 
and earth-centered) 


Return 

ORIGCHNG 


Perform "RECTIFY" 
TS = RCV - RPQV 


(leaves X2 set vri-th PBODY) 
(RCV shifted right X2 places) 


R^ect ~ shifted left (2 -X2 places) 

RCV = R , 

— — rect 


TS = T 


et 


Perform "LUNVEL" 
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If bit 12(M00NFIAG) of FLAGWRDO = 1: 


TS = - TS 

TS^ = VCV - TS (VCV shifted right X2 places) 
V^ect ^ (2 -X2 places) 


VCV = V . 
— — rect 


If bit 12(M00NFIAG) of FIAGWRDO = 1: 

Set bit 12(M00NFUG) of FIAGWRDO = 0 
PBODY = 0 


Return 


Set bit 12(M00NFIAG) of FIAGWRDO = 1 
PBODY = 2 


Return 


RECTEST 

If jTDELTAVj - ^ 0, or if overflow taken place: 

Perform "RECTIFY" 

Proceed to "INTGRA.TE" 

If |tDELTAV\/|RCV| - K 0: ( ItDELTAV ( shifted right (7 +X2) 

rSCrCiu mm \ 

*D_L3.0SS ] 

Perform "RECTIFY" 

Proceed to "INTGRATE" 

If |TNUV| - ^2d4 overflow has taken place: 

Perform "RECTIFY" (Note that sensing overflow 

x'esets ovexd'low iiidicatui' in 
Proceed to "INTGRATE" all cases) 

Proceed to "INTGRATE" 

INTGRATE 

ZV = TNUV 

YV = TDELTAV 
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Set bit 14(JSWITCH) of FIAGWRDO = 0 
DIFEQCNT = 0 
ALPHAV = YV 
H = 0 

Proceed to "ACCOMP" 

ACCOMP 

XI = PBODY 
X2 = PBODY 
FV = 0 

BETAV = RCV + ALPHAV (ALPHAV shifted right (7 +X2) places) 

If bit l(WMATINT) of FLAGWRD3 = 1: 

ALPHAM = (ALPHAV I 

ALPHAV = unitALPHAV 

Perform "GAMCOMP" 

TS. = XI 
5 

ALPHAV - BETAV 
ALPHAM = BETAM 

If bit 13 (MIDFLAG) of FLAGWRDO = 0: 

Proceed to "OBLATE" 

TS = T , 
et 

Perform "LSPOS" 

X2 = 2 

XI = TSp (restoring contents) 

If bit 12(M00NFLAG) of FLAGWRDO = 1: 

TS = - TS 

X2 = 0 (note this is reverse of usual X2 relation to bit 12) 
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\ 

,/ 


BETAV = TS 
RPQV = TS 

RPSV = TS^ (from push-dovm list address 2D) 

If bit l(WMATINT) of FLAGWRD3 = 1: 

= ALPHAM ALPHAV - BETAV (first term shifted 

right 2 -X2 places) 

XI = XI +4 

Set bit 15(RPQFLAG) of FLAGWRD8 = 0 

If bit 12(M00NFLAG) of FLAGWRDO = 1: (convert sun's vector to 

be with respect to 

RPSV = RPSV + (RPQV, shifted right 9 places) 

Perform "GAMCOMP" (BETAV set above to RPQV) 

X2 = 4 (selects mu of sun) 

XI = XI +4 
BETAV = RPSV 
Perform "GAMCOMP" 

Proceed to "OBLATE" 


GAMCOMP 

BETAM =|BETAVj 
BETAV = unitBETAV 


RHO = ALPHAM / BETAM computed in quasi-floating point fashion, 

using K , for scaling information 

d.SC3.J.6 


LllQ = RHO (RHO - 2 ALPHAV • BETAV) 


(same as (A - 2 B)* A/B^ 
for non-unit vectors) 


FOFQ == 


LILQ 


3+3 LILQ + LILQ^ 

1 + (1 + LILQ)^/^ 


TS = ALPHAV + (FOFQ/RHO) BETAV 


(scaled B4) 


TS, = - K 
—1 muer 


RHO 


-X2 BETAM^ (1 + LILQ)^/^ 


Reset overflow indicator 


TS 


(computed quasi- 
floating point) 
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for scaling data) 


FV = FV + TS (using K and K 

^ cLJd O d-LG XI 

If overflow has taken place, proceed to "GOBAQUE" 

Return 

— ^ Entered if overflow from "DIFBQ+2" , "GAMCOMP" , and "OBLATE' 

If |tDELTAV I = 0: (all components below 2 meters (earth) or 2“3 

meters (moon) ) 

Proceed to "POODOO" (pattern 2043 O-) 

8 

TAUORB = T - H 
c 

T , = T , - H 
et et 

Perform "KEPPREP" 

Perform "RECTIFI" 


Set bit 15(RPQFLAG) of FUGWRDB = 1 
Proceed to "TESTLOOP" 

OBLATE 

X2 = PBODY 

If ALPHAM - ^ 0, proceed to "NBRANCH" 

~X2 

If bit 12(M00NFLAG) of FLAGWRDO = 0: 

COSPHI = ALPHAV^ (ALPHAV here is a unit vector) 
UZ = unitZ 

If bit 12(M00NFLAG) of FLAGWRDO = 1 : 

TS^ = ALPHAV 
TS2 = T3, 

TS = 0.15 (i.e. non-zero quantity) 

Perform "R-TO-RP" 

URPV = TS 

TS = ( - unitZ + unitZ) jMiy[ATRIx[ 

UX = ( - unitX + unitX) [mMATRIJ^ 

UZ = TS 
COSPHI = URPV 

Z 


.) 
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P 2 ' = 3 COSPHI 


P^' = i (15 COSPHI^ - 3 ) 

P^' = (1/3) (7 P 3 ' COSPHI - 4 P 2 ') 
P 5 ' = i (9 P^' COSPHI - 5 P 3 ') 


f 


TS = f P^ ' + 


ALPHAM 


( P • + 


TS = TS 

K. 


-( 


^2* + 


j4j3-X2 P I ) ) ALPHAV 
LPHAM 5 / 

v>) 


TS = 


^ j2 


-X2 TS 


ALPHAM^ 

Reset overflow indicator 


j3j2_j^2 (p I + - ’^^’^^-X2 
ALPHAM 3 ALPHAM 


computed quasi-floating point 


TS = FV + TS 

If overflow indicator set, proceed to "GOBAQUE" 

FV = TS 

If bit 12(M00NFLAG) of FLAGWRDO = 0, proceed to "NBRANCH" 

TSt = 5(URPV ^ - URPV ALPHAV + 2 URPV UX + 

“1 y X ' - X - 

2 URPV (UX UZ) (in PD 2 D, scaled B3) 

y 

TS = 5 URPV (1-7 COSPHI^) ALPHAV + (5 COSPHI^ - l) UX 

(10 URPV URPV ) UZ (in PD 8 D, scaled B5) 

X. z 

= (=032031™ / + C^3j22r2m% 

TS = (TS^) / ALPHAM^ + FV 

If overflow indicator set, proceed to "GOBAQUE" 

FV = TS 
X2 = PBODY 


Proceed to "NBRANCH" 

NBRANCH 

If DIFEQCNT = - 24 , proceed to "DIFEQt2" 


(scaled B6) 
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If DIFBQCNT = 0: 

PHIV = FV 
If DIFBQCNT = -12: 

PSIV = PHB[ + 4 FV 
PHIV = PHIV + 2 F V 
H = H + DTd2 

DIFBQCNT = DIFBQCNT - 12 
ALPHAV = YV + H (ZV + ^ H FV) 

If bit 14(JSWITCH) of FUGWRDO = 1 , proceed to "DOW.." 

TS = DTd2, shifted right 9 places (5 interval least increment 1 cs) 
If DIFBQCNT = -24: 

Roimd TS to double precision (otherwise, a tr\mcated shift) 

TAUORB = T + TS 
c 

T , = T , + TS 
et et 

Perform "KBPPRBP" 

Proceed to "ACCOMP" 

KBPPRBP (Bntered from "ALOADBD", "GOBAQUB", and "NBRANCH") 

KBPRTN = Return address (to routine entering "KBPPRBP") 

X2 = PBODY 

A^ - i unitRCV • VCV 

QARG = (TAUORB - T^)/|rCV| 

TS = (1/6) QARG^ (K^^g^ - (VCV|^ )RCV| )/|RCV| 

""X 2 

XKBPNEW = XKBP +./k ' QARG (l- A- QARG+ 2 (A- QARG)^ + TS) 

^ iiiu 6 r ^^2 P p 

(XKBP also has notation "XPREV") 

XI = -10 

If bit 12(M00NFLAG) of FLAGWRDO = 0, XI = -2 

Proceed to "KBPLERN" (with overflow indicator reset just before 

adding the " 1 " factor to other terms) 




) 
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YV = YV + HCZV + PHIV H/6) 

ZV = ZV + H(PSIV + FV)/6 

If bit 14(JSWITCH) of FIAGWRDO = 1: 


) 



Mor, pnTPTTP 2V (shifted left 3 places, compensating for 

"NEXTCOL" right shift) 

TS = YV (shifted left 3 places) 

If overflow indicator set: 

Set bit 6(ORBWFIAG) and l(WMA.TINT) of FLAGWRD3 = 0 

Set bit l(RENDWFLG) of FLAGWRD5 = 0 

Set bit 5(STATEFLG) of FIAGWRD3 = 1 

Perform "ALARM" (pattern 0/(21g) 

Proceed to "TESTLOOP" 

--COLREG ^ 

If C0LREG<> 0: 

T = T 
decl dec 

Proceed to third line of "INTEGRV" 


COLREG = COLREG +3 
Proceed to "NEXTCOL" 

If overflow indicator set, proceed to "GOBAQUE" (sensing it resets) 
TNUV = ZV 


TDELTAV = YV 

If bit 2(MIDAVFLG) of FLAGWRD9 = 1, proceed to "CKMID2" 
If bit l(WMATINT) of FLAGWRD3 = 0, proceed to "TESTLOOP" 
Set bit 13(INTGRAB) of FLGWRDIO = 1 
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If bit 3(CSMINTSW) of FLAGWRD3 = 1: 

Perfom "MOVEACSM" 

Set bit 12(CM00NFLG) of FIAGWRD8 = 1 

If bit l(AVEMIDSW) of FIAGWRD9 = 0: 

R = RCV + TDELTAV (X2 used to determine 

V = VC V + TNUV necessary shifts) 

T = T 
pptm et 

If bit 12(M00NFLAG) of FLAGWRDO = 0; 

Set bit 12(CM00NFLG) of FLAGWRD8 = 0 
If bit 3(CSMINTSW) of FLAGWRD3 = 0: 

Perform "MOVEALEM" 

Set bit II(IMOONFLG) of FLAGWRD8 = 1 

R , , = RCV + TDELTAV (X2 used to determine 

—other _ — ' 

^ther ^ TNUV necessary shifts) 

If bit 12(M00NFL/vG) of FLAGWRDO = 0: is time tag) 

Set bit ll(LMOONFLG) of FLAGWRD8 = 0 
Set bit 14(JSWITCH) of FLAGWRDO = 1 
COLREG = -15 

If bit 2(9DIMWMAT) of FLAGWRD3 = 1: 

COLREG = -24 
Proceed to "NEXTCOL" 

NEXTCOL 

YV = (shifted right 3 places) 

^ ^ -27-COLREG (shifted right 3 places) 

DIFEQCNT = 0 
ALPHAV = YV 
H = 0 




) 
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n 




Proceed to "DOW.." 


DOW.. 


X2 = PBODY 


BETAM = K 


muer_^ 

TS = VECTAB_j^jpgQpjj^ 

3 (ALPHAV • unitTS) unitTS - ALPHAV 

FV = ; T BETAM 

fTSp 

If bit 13 (MIDFLAG) of FLAGWRDO = 0, proceed to "NBRANCH" 
X2 = - PBODY 


BETAM = K 


muer 


-X2-2 




TS^ = 


3 (ALPHAV » unitTS) unitTS - ALPHAV 

|TSp 


BETAM 


If bit 12(M00NFLAG) of FLAGWRDO = 0: 

6 places 

(scale factor is ALPHAV scale minus 38) 


Shift TS^ right 6 places 


F V = F V + TS^ 
Proceed to "NBRANCH" 


O 
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Quantities in Computations 

See also list of major variables and list of routines 


A_: Intermediate quantity used in "KEPPREP", scale factor B? (earth) or 
B5(moon), stored in push-down list location 40 (corresponds to gamma 
times square root of mu) . 

ALPHAM: Value of magnitude of ALPHAV (before ALPHAV made a unit vector), 
same scaling and units. 

ALPHAV: Cell used for several purposes. When initially enter "ACCOMP", 

contains position deviation scaled B22 (earth) or BIB (moon) meters. 
Subsequently loaded with mit(ALPHAV), scale factor Bl. Is then 
set to unit position vector (originally BETAV information), with 
scaling for ALPHAM correspondingly B29 (earth) or B27 (moon), and 
retains this setting when "OBLATE" entered. When W matrix 
computations are done, is used to contain value of YV (W 
information. Can also be used as internal communication cells 
with coordinate transformation routines . 


BETAM: Value of magnitude of BETAV (before BETAV made a imit vector), 
same scaling and units. Also used in "DOW.." to contain K , 
same scaling as the constant. muer^ 


BETAV: Vector giving vehicle position with respect to body whose 

acceleration effect is being computed, imits meters. In "ACCOMP", 
initial scale factor B29 (earth) or B27 (moon) . If bit 13 (MIDFLAG) 
of FLAGWRDO = 1, subsequently contains position vector to "secondary 
body", scale factor B29, and then position vector to sun, scale 
factor B38. 


-5041m' 


See Coordinate Transformations. 


C : Single precision erasable memory constant, program notation 

"E32C3IRM", scale factor B80, giving information on moon's C„,, 
containing C^^ x 1.5 x r^^ x mu^. For a value VALC3I, the fraction 

in the cell may be computed as VALC3I x 1.5 x (1.73809E6)^ x 0.4902778E9 
X 2“°^. This fraction shoifLd not be 5 or more (VALC3I above about I5.5E-5) 
to avoid overflow when divided by normalized ALPHAM. 


"e3j22r2m', 


Single precision erasable memory constant, program notation 


22 ’ 


E3J22R2M", scale factor B58, giving information on moon's 
containing x 3 x r^^^ x mu^. For a value VALJ22, the fraction^ 

in the cell may be computed as VALJ22 x 3 x (1.73809E6)^ x 0.4902778E9 

X 2-58. 


COLREG: Single precision cell ("column register") used to control the 
indexing in "DIFBQt2" and "NEXTCOL" for the appropriate number of 
elements of the W matrix, scale factor BI3 (since W matrix elements 
double precision). 
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COSPHI: Argument for "OBLATE" equations, program notation "COSPHl/2", 
scale factor Bl, stored in push-down list location 18D. It is 
the cosine of the angle between the unit polar vector (of earth 
or moon) and the position vector (earth or moon centered respectively). 

DELTAV^jj^, DELTAV^: "Permanent" values of TDELTAV for GSM and LM 

respectively, same scaling as TDELTAV. Program notation DELTACSM 
and DELTALEM. 

DIFEQCNT: Single precision cell, scale factor BI4, used for program control 
purposes, having values 0, -12, and -24 at the beginning, middle, 
and end of each Integration step. It is negative for convenience 
in using interpreter indexing orders, and it is stepped by 12 to 
facilitate storage of a pair of double precision vectors (in VECTAB. ) 
during each pass. 

DTd2: Value of limited time increment for orbital integration, scale 
factor BI9, units centi-seconds (is actually ^ the value of the 
net increment, e.g. beginning to middle or middle to end). It 
is derived in "TESTLOOP" . 

EGRESS: Single precision cell used to retain return address information 
(e.g. from "AVETOMID"). 

FOFQ: Function of LILQ used in "GAMCOMP", scale factor (for FOFQ/RHO) 

B3. Program does not actually divide by RHO, but instead computes 
FOFQ/RHO directly: FOFQ computation shown as given, however, to 
facilitate comparison with published equation information. 

FV: Value of disturbing acceleration (second time derivative of position 
deviation), scale factor B-l6(earth) or B-20 (moon) in meters/cs^. 

Same cell used in "DOW.." for W-matrix updating, where scale factor 
is 3^ less than ALPHAV scale factor. 

H: Value of time since beginning of Integration step, scale factor BI9, 
units centi-seconds. 

IRETURN: Single precision cell used to retain retiirn address information 
from the subroutine entered to use the orbital integration package 
(after "INTSTALL" logic has given control of the package to the 
routine used) . 

IRETURNl: Single precision cell used to retain return address information 
from "MIDTOAVl" and "MIDT0AV2" . If "MIDTOAVl" is entered (meaning 
that integration to a specified time is desired) but insufficient 
time is available to do the Integration, then the time is slipped 
and IRETURNl is incremented by 1 (to return to calling address +2) 
for appropriate disposition by caller. If enter "MIDT0AV2", cell 
is not incremented. 

KEPRTN: See Conic Routines. 

^3csecs" program notation "3CSECS", scale factor B28, \inits 

centigseconds, used as exit tolerance from "CKMID2". Value is 
3x2 , corresponding to 0.03 seconds (meaning an exit if time 

difference is 0-2 centi-seconds). 
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K^,, : Constant, program notation "3/4" > used in "RECTEST" to check if 
^ ^ rectification is required. Value corresponds to 0.75> with scaling 
same as that of the x-ector with which compared. Hence for earth 
will rectify if TDELTAV magnitude is 0.75 x 2^^ meters or more, or 
if TNUV magnitijde 0.75 x 2^, gmeters/csec;for moon will rectify if 
TDELTAV _^gnitude 0.75 x 2 meters or more, or if TNUV magnitude 
0.75 X 2 meters/csec(or more, of coiirse). 

^5p6secs’ program notation "5.6SECS", scale factor B28, units 

centi-seconds . Value is 560 x 2 ~^°, corresponding to 5*6 seconds 
(to ensure that calling routine can successfully blank DSKY for 5 
seconds) . 

Kboogc* Constant, program notation "600SECS", scale factor B28, units 

centi-seconds. Value is 60000 x 2 ~^°, corresponding to 600 seconds. 


K 1 : Set of single precision constants used to control performance 

i of "GAMCOMP" as selected by the value of index. Program notation 
for i = 0 is "ASCALE" . Values for even "i" give the difference 
between ALPHAM and BETAM scalings, for use in determining the proper 
scaling of RHO: 


i Value ALPHAM scale 


0 

-7 

22 

-2 

-9 

18 

-4 

0 

29 

-6 

-2 

27 

-8 

-9 

29 

-10 

-11 

27 


BETAM scale 

29 (earth, primary) 

27 (moon, primary) 

29 (earth, secondary) 

29 (moon, secondary) 

38 (earth, sim) 

38 (moon, sun) 


Values for odd "i" are used to determine (with RHO scaling information 
above) the proper scaling of FV information: B-l6 for earth and 
B-20 for moon. These values for earth are (l6 - 2 x BETAM scaling + 
mu scaling) and for moon are (20 - 2 x BETAM scaling + mu scaling): 
the "2" factor is required because BETAPr is in computations. 


i 

Value 

2 X BETAM 

[ scale Mu scale 


1 

-6 

58 

36 

(earth, primary) 

-1 

-4 

54 

30 

(moon, primaiy) 

-3 

-12 

58 

30 

(earth, secondary) 

-5 

-2 

58 

36 

(moon, secondary) 

-7 

-6 

76 

54 

(earth, sun) 

-9 

-2 

76 

54 

(moon, sun) 


Constant, program 

notation 

"DT/2MIN", scale factor B20, units 

centi-seconds. Value is 3 x 

corresponding to 0.03 seconds 


(hence "TESTLOOP" exits, since original input B28 centi-seconds, 
if time difference is 0-2 centi-seconds). Could also be considered 
a minimum for DTd2, in which case value would correspond (scale 
factor BI9) to 0.015 seconds. 

^dt2mx‘ ^O’^stant, program notation "DT/2MAX" scale factor B20, units 
centi-seconds. Value is 4000E2 x 2“^^, corresponding to 4OOO 
seconds. Could also be considered a maximum of DTd2, in which 
case value would correspond (scale factor BI9) to 2000 seconds. 
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^i2 ■ program notation "J2RBQSQ", scale factor B72, selected 

’^'^0 for Index value = 0. Value is 1.75501139E21 x 2~'^, corresponding 
to 3.986032E10 X (6.37S165E6)2 ^ (1082.3E-6) x 2-72, ^^ere first 
term is earth ^ (in meters'^/cs'^), second is square of earth's radius 
(gravitational, in meters), and third is second harmonic of earth's 
potential fianction (note that 1.5 times it = 1.62345E-3), while 
4th is scale factor. 

K.^ : Constant, program notation "J2RBQSQ -2", scale factor B60, selected 

^ -2 for index value = -2 (i.e. X2 = 2). Value is Q.3O67493316EI8 x 
2"°°, corresponding to .4902778E9 x (l.73S09E6)^ x (0.207108E-3) x 
2 where first term is moon's in meters'^/cs ), second is 
square of moon's radius (in meters), and third moon's J2 (4th scaling). 

K.^.2 : Constant, program notation "2J3RE/J2", scale factor B27, selected 
0 for index value = 0. Value is -0. 135 54263 63E5 x 2 27, corresponding 
to -O.23E-5 X 6.378I65E6 / 1082 .3E-6 X 2-^7, vrhere first term is 

third harmonic of earth's potential function, second is earth radiios 
in meters, and 3^ is second harmonic, while fourth is scaling. 

K.o *2 : Constant, program notation "2J3RE/J2 -2", scaled B25, selected 

-2 for index value = -2 (i.e. X2 = 2). Value is -I76236.O2 x 2-25 
(stored value merely the integer), corresponding to (-2.1E-5)/(0.207108E-3) 
X I.738O9E6 X 2-25, where first term is moon's J^, second is moon's J^, 
third is moon's radius in meters, and fourth is scale factor. ^ 

) ^1413 • Constant, program notation "J4RBQ/J3", scale factor B26, selected 

'^^0 for index value = 0. Value is 0. 49916073 91E7 x 2-2°, corresponding 
to -1.8E-6 X 6.37EI65E6 / -O.23E-5 X 2 , where first term is 

fourth harmonic of earth's potential fimction, second is earth 
radius in meters, 3i’d is third harmonic, and fourth is scaling. 

K.4.3 : Constant, program notation "J4REQ/J3 -2", selected for index 

-2 value = -2, value 0 (since for moon is O). 

^muer ' Constant, program notation "MUEARTH", scale factor B36, selected 
0 for index value = 0.„ Value is 3*9S6032E10 x 2-3°, corresponding 
to earth h (in meters'^/cs"^) . 

^muer ' Constant, program notation "MUEARTH -2", scale factor B30, 

-2 selected for todex value = -2 (e.g. X2 = 2) . Value_is 
4.90277SE8 X 2 corresponding to moon J*. (in meters^/cs"^) . 

^muer ’ Constant, program notation "MUEARTH -4", scale factor B54, 

-4 selected for iMex value = -4 (e.g. X2 = 4). Value is 
1. 3271544 5EI6 X 2-5^, corresponding to sun ^ (in meters^/cs^) . 

K : Constant, program notation "OMEGMOON", scale factor B-23, 

units radians/centi-second. Value is 2.66169947E-8 x 223, 
corresponding to 2.66169947E-6 rad/sec. Octal value is 2,66 i69948E-6. 

) ^p3d’ Constant, program notation ".3D", scale factor B2, value 0.3 x 2“^. 
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K , : Constant, program notation "RDE", scale factor B29, units meters 

®0 (selected for index value = O), giving distance from center of 
earth beyond which "OBLATE" computations are bypassed. Value is 
80467. 20E3 X 2“^^, corresponding to 80,467.20 km, or 50jCO0 statute 
miles (528O feet/statute mile). 

K , : Constant, program notation "RDE -2" (also "RDM"), scale factor 

^^®-2 B27, units meters (selected for index value = -2), giving 

distance from center of moon beyond which "OBLATE" computations 
are bypassed. Value is 16093.44E3 x 2 ~ ' , corresponding to 
16,093.44 km, or 10,000 statute miles. 

Krecrat' Constant, program notation "RECRATIO", scale factor BO, value 


K : Constant, program notation "RME", scale factor B29, units meters 
^®0 (selected for index value = 0), giving distance from center of 
earth beyond which bit 13 (MIDFLAG) of FLAGWRDO is set to 1 in 
"TESTLOOP". Value is 7178165 x 2~29^ corresponding to 800 km 
above gravitational radius of 6378. I65 km. Actual stored value 
(due to scaling) is 7178166 meters. See "V83CALL" . 

K : Constant, program notation "RME -2" (also "RMM"), scale factor 
-2 B27, units meters (selected for index value - -2), giving 
distance from center of moon beyond which MIDFLAG is set. Value 
is 2538.O9E3 X 2~27 j corresponding to 800 km above mean lunar 
radius of 1738.09 km. See "V83CALL" . 

K , : Constant, program notation "RSPHERE", scale factor B29, units 

rsp ere giving the value of the distance from the center of the 

moon below which the moon is considered the primry body (check 
made in "TIMESTEP"). Value is 64373. 76E3 x , corresponding 
to 64,373.76 km, or 40,000 statute miles. Checked also in "A-PCHK" . 

K . , . : Constant, program notation "TIMEDELT", scale factor B28, units 

timedt^^^^^_gg^^^^g^ Value is 1250 x 2 corresponding to 12.5 seconds. 

LILO: Value for argument of FOFQ, scale factor B2, stored in push-down 
list location 8D. 

LOCCTR: See Display Interface Routines. 

l^lMATRliQ : See Coordinate Transformations. 

MUpPp: Value of for the primary body left in push-down list location 
26D by "RECTOUT", same scale factor as corresponding (B36 for 

earth, B3O for moon). Program notation "MU(P)". i 

NUV , NUV, : "Permanent" values of TNUV for CSM and LM respectively, 

~cm “Im ~ 

same scaling as TNUV. 
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^2*^ ^3*^ ^4*’ ^5*’ polynomial derivatives computed in "OBLATE", 

scale factors B6, B5, B7, and BIO respectively, stored in push-dovm 
list locations OD, 2D, 4D, and 6D (partially) respectively. 

PBODY: Single precision cell set 0 in "INTEGRV" and subsequently updated 
if necessary, scale factor BI4. Value is 0 for earth-centered 
measurement and 2 for moon-centered measurement. It is used to 
initialize interpretive language index register X2, which is in 
turn used to select appropriate information for earth or moon 
(including the number of binary shifts required). 

PHIV: Storage for information iised in Nystrom numerical integration, 
scaled (for state vector updates) B-13(earth) or B-17(moon). 


PSIV: Storage for information used in Nystrom numerical integration, 
scaled (for state vector updates) B-13(earth) or B-17(moon). 

QARG: Intermediate quantity used in "KEPPREP", computed in quasi-floating 
point fashion, with scaling (for numerator and denominator already 
normalized) BO(earth) or B2 (moon). It corresponds to s divided by 
the square root of mu, and is stored in push-down list location 4D. 
Hence QARG has scale factor B7 for both earth and moon. 

QPRET: Single precision cell assigned to each job in the interpretive 
language, which may be used to retain rettim address information. 
Cell is preloaded with proper exit address from orbital integration 
system of routines before transfer to "INTWAKE"; before using the 
orbital integration package, subroutine "INTSTALL" is performed 
which returns immediately to the calling routine if the orbital 
integration package is not already in use by another user (at a 
lower job priority), and otherwise retains in QPRET the return 
address to the routine calling "INTSTALL". 

See General Program Control. 

“Other" vector of "other" vehicle (i.e. LM) transmitted on 

downlink, scale factor B29, units meters. Same B29 scale factor 
applies whether moon or earth is central body. 

%’ect' position vector within orbital integration (when last 

rectification or equivalent function was performed), scale factor 
B29(earth) or B27(nioon), units meters. 

^ectcm^ ^ectlm' "P®™anent" values of R^^^^ for CSM and LM respectively, 

same scale factor and units as R 

“rect 
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RCV: Value of conic position vector within orbital integration routine, 
scale factor B29(earth) or B27(nioon), units meters. Also used as 
communication cell with orbital integration package (when entered 
via "INTEGRVS") to specify the position component of the state 
vector to be integrated. 

cm^ Im" value of RCV for CSM and LM respectively, same 

scale factor and units as RCV. 

RHO: Ratio of magnitudes of ALPHAV and BETAV (before becoming \init 

vectors) computed in "GAMCOMP", scale factor Bl, stored in push- 
down list location 4B. 

RLS: See Coordinate Transformations. 

RPQV: Position of secondary body with respect to primary body, scale 

factor B29, units meters. If bit 15(RPQFLAG) of FLAGWRDB = 0, this 
means that the vector has been loaded for current integration time; 
if the bit is 1, this means that the vector must be computed (bit 
initialized to 1 when integration package entered). 

RPSV: Position of sun with respect to primary body, scale factor B3S, 
vinits meters. Computed in "LSPOS" (and left in push-down list 
location 2D) with respect to earth, and subsequently changed in 
"ACCOMP" to be with respect to moon if necessary. 

RTXl, RTK2: Single precision values of index registers XI and X2 loaded 
in "MIDT0AV2" with values at exit from integration ("RECTOUT"), 
used to identify nature of origin of state vector (also loaded 
elsewhere: see Rendezvous Computations)- 

T : Time (as of start of integration cycle) since last rectification, 

^ scale factor B28, units centi-seconds . Set 0 in "RECTIFY", and 
incremented in Kepler computations ( see Conic Routines ) . 

T , T ^ : "Permanent" value of T for CSM and LM respectively, same 
c cm c 1 m c 

units and scaling, 

Tdec* Value of "decision time", i.e. final value of time to which 
state vector must be integrated, scale factor B28, imits 
centi-seconds . 


Value of the time associated with the orbital integration routine 
state vector, scale factor B28, units centi-seconds. It is incremented 
"NBRANCH" . 


in 


etcm 


^ T ; "Permanent" value of T , for CSM and LM state vectors 
— — -“me units and scaling, called "TETLEM"j 

"T-OTHER" in program. 


T , n : See IMU Computations . 
pptml 
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TAUORB: Time within integration cycle since last rectification (or 
total conic integration time required), scale factor B28, units 
centi-seconds . Program notation is "TAU.". 

TBASE2: Single precision cell used generally for retention of time base 
information for restart group 2 (see 3420. 5-2?) , for waitlist 
restarts. Used in "INTWAKE" to permit retention of QPRET value 
for restart purposes (since QPRET of job involved would be lost 
if a restart generated, because it generally is in VAC area 
as described in 3420.5-2?). 

TDELTAV: Vector position deviation (from conic) within orbital 
integration package, scale factor B22(earth) or Bl8(moon), 
units meters. 

TNUV: Vector velocity deviation (from conic) within orbital integration 
package, scale factor B3(earth) or B-l(moon), units meters/ 
centi-second. 

TTOADD: Value of time increment used in "CKMID2" if MIDIFLAG = 0, program 
notation "T-TO-ADD", scale factor B2B, units centi-seconds. Nonnal 
value is the same as K . , , but it is incremented by that constant 

if the "CKMID2" check using , fails. 

5posecs 

URPV: Vehicle position vector information used in "OBLATE" for moon-fixed 
coordinate information, scale factor Bl, stored in I 4 D. 

UX: Lunar X-axis in reference coordinates used in "OBLATE", scale factor 
Bl, stored in 32D. 

UZ : Lmar Z-axis (polar vector) in reference coordinates used in "OBLATE" , 
scale factor Bl, stored in 20D. For earth is unitZ. 

V^^: See General Program Control. 

—other' vector of "other" vehicle (i.e. LM) transmitted on 

downlink, scale factor B?, units meters/centi-second . Same B? 
scale factor applies whether moon or earth is central body. 

Vj^ect' velocity vector within orbital integration (when last 

rectification or equivalent function was performed), scale factor 
B7(earth) or B5(moon), units meters/centi-second. 

lectern" ^ectlm* value of for GSM and LM respectively, 

same units and scaling. 

VCV: Value of conic velocity vector within orbital integration routine, 
scale factor B7(earth) or B5(moon), units meters/centi-second. Also 
used as communication cell with orbital integration package (when 
entered via "INTEGRVS") to specify the velocity component of the 
state vector to be integrated. 
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Im' value of VCV for GSM and LM respectively, same 

scale factor and units as VCV. 

VECTAB. : Temporary storage for values of position vector of vehicle, 
loaded in "ACCOMP" and used in "DOW.." for orbital integration 
updating of W matrix. 

See Measurement Incorporation. 

XKEP: Value of quantity used in previous cycle through Kepler's equation 
(program notation also "XPRIV"), scale factor B17(earth) or Bl6 
(moon). Set 0 e.g. in "RECTIFY". Units are meters^ . 

XKEP ^^ , XKEP -i^ ; "Permanent" value of XKEP for CSM and LM respectively, 
same scaling. 

XKEPNEW: "New" value of XKEP computed in "KEPPREP", scale factor B17 
(earth) or Bl6(moon). 

YV: Communication cell with integration routines, set to TDELTAV in 
"INTGRATE" and also used for W matrix updating. 

ZV: Communication cell with integration routines, set to TNUV in 
"INTGRATE" and also used for W matrix updating. 
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